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SEQ 1 



1 
2 
3 
4 
5 
6 

i 

B 

9 
10 
11 
12 
13 
14 
15 
16 
17 

la 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 



• REM ! 



IDENTIFICATION 
PRODUCT CODE: AC-8464C-nC 

PRODUCT NAME: CZDHFCO DHll SINGLZ LINE DATA TEST 
DATE: JUNE 1985 

riAINTAINER: NAC SOFTUARE ENblNEERING 
AUTHOR: MICHAEL DAVIS 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE UITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT . 

NO RESPONSIBILITY FOR THE USE OR RELIABILIT>^ OF SOFTUARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 
COMPANIES 



COPYRIGHT CO 1985 BY DIGITAL EQUIPMENT CORPORATION 



CZOHF-CO 
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SEQ 2 



1 

2 1. ABSTRACT 

3 

4 THE DHll SINGLE LINE DATA TEST VERIFIES THAT ALL 

5 CHARACTERS (0-377). EACH LINE CAN TRANSMIT AND RECEIVE 

6 AT ALL SPEEDS (8 BITS PER CHARACTER) AND ALL CHARACTER 

7 LENGTHS (AT A SPEED OF 9600 BAUD), 
8 
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SEQ 3 



1 

2 2. REQUIREMENTS 

3 

4 2.1 EQUIPMENT 

5 

6 PDP-11 FAMILY STANDARD COMPUTER WITH 4KU OF MEMORY 

7 ASR-33 TELETYPE OR EQUIVALENT 

8 OHll ASYNCHRONOUS MULTIPLEXER 

9 OMll MAINTENANCE CARD INSTALLED 
10 

11 2.2 STORAGE 

12 

13 THE PROGRAM LOADS INTO 4KU OF MEMORY 

14 

15 3. LOADING PROCEDURE 

16 

17 THE STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 

18 IS TO BE USED 
19 

20 4. STARTING PROCEDURE 

21 

22 4.1 CONTROL SWITCH SETTINGS 

23 

24 4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 

2S 

26 ALL CONSOLE SUITCHcS DOUN 

27 

28 4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 

29 AFTER PROGRAM RESTART 
30 

31 SUOO-1 
32 

33 4.1.3 TO START PROGRAM AT SELECTED TEST A^^TER PROGRAM RESTART 

34 

35 SUOl-1 
36 

37 4.2 STARTING ADDRESS 

38 

39 THE STARTING ADDRESS FOR ALL TESTS IS 000200 

40 

41 THE RESTART ADDRESS FOR ALL TESTS I 0002000 

42 

43 THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 

44 

45 4.3 PROGRAM AND/OR OPERATOR ACTION 

46 

47 4.3.1 INITIAL PROGRAM START 

48 

49 4.3.1.1 LOAD PROGRAM INTO MEMORY 

50 4.3.1.2 LOAD ADDRESS 000200 

51 4.3.1.3 CLEAR CONSOLE SWITCHES 

52 4.3.1.4 PRESS START 

53 4!3!l'.5 THE PROGRAM WILL TYPE "DHll SINGLE LINE DATA TEST" 

54 AND WILL THEN TYPE "VECTOR ADDRESS-" AND UAIT FOR AN 

55 INPUT FROM THE TELETYPE KEYBOARD. 
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SEQ 4 



1 

2 4.3 (CONT'D) 
3 

4 4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 

5 FOR THC DHll TO BE TESTED FOLLOUED BY <CARRIAGE RETURN> 
6 

7 NOTE: WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE RETURN> MEAN THAT 

8 THE TELETYPE KEY UITH THE NAMED FUNCTION SHOULD BE STRUCK 
9 

10 IF AN INCORRECT ADDRESS IS ENTERED. THE PROGRAM 

11 WILL TYPE "?" AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5 

12 4.3.1.7 THE PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-'' 

13 AND UAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
14 

15 4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 

16 DHll TO BE TESTED FOLLOUED BY <CARRIAGE RETURN> 
17 

18 IF AN INCORRECT ADDRESS IS TYPED. THE PROGRAM WILL TYPE 

19 -?'• AND UILL THEN REPEAT THE MESSAGE OF 4.3.1.7 

20 4.3.1.9 THE PROGRAM UILL TYPE "R" TO INDICATE THAT IT IS 

21 ABOUT TO START TESTING. AND THEN TESTING UILL BEGIN 
22 

23 4.3.2 PROGRAM RESTART UITH ALL SUITCHES DOWN 
24 

25 4.3.2.1 PERFORM 4.3.1.2 TO 4.3.1.5 

26 4.3.2.2 THE PROGRAM UILL TYPE 'DHll SINGLE LINE DATA TEST" 

27 AND UILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 
28 

29 4.3.3 PROGRAM RESTART UITH SUOO-1 
30 

31 4.3.3.1 LOAD ADDRESS 000200 

32 4.3.3.2 SET SUOl-1 

33 4 3 3 3 PRESS START 

34 4!3'.3!4 THE PROGRAM UILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
35 

36 4.3.4 PROGRAM RESTART UITH SUOl-1 
37 

38 4.3.4.1 LOAD ADDRESS 000200 

39 4.3.4.2 SET SUOl-1 

40 4.3.4.3 PRESS START 

41 4!3!4!4 THE PROGRAM UILL TYPE "DHll SINGLE LINE DATA TEST- 

42 AND UILL THEN TYPE "TEST PC-' AND UILL UAIT FOR AN INPUT 

43 FROM THE TELETYPE KEYBOARD 

44 4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT UHICH THE PROGRAM IS TO 

45 BE STARTED FOLLOWED BY < CARRIAGE RETURN> 

46 4.3.4.6 THE PROGRAM UILL TYPE R TO INDICATE THAT IT HAS STARTED 

47 AND UILL START TESTING AT THE SELECTED TEST. 
48 

49 NOTE: CARE MUST BE TAKEN WHEN THS FEATURE IS USED. SINCE 

50 THERE IS NO PROTECTION AGAINST SELECTING AN ADORES^ THAT 

51 IS IN THE MIDDLE OF A TEST 
52 

53 NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 

54 SET SU14-1 BEFORE ENTERING THE TEST ADDRESS 
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SEQ 5 



1 

2 5. OPERATING PROCEDURE 

3 

4 5,1 OPERATIONAL SWITCH SETTINGS 

5 

6 SU15-1, HALT ON ERROR 

7 SW14«1. LOOP ON CURRENT TEST 

8 SW13-1. SUPPRESS ERROR TYPEOUT 

9 SU11«1. INHIBIT ITERATIONS 

10 SWlO-1, ESCAPE TO NEXT TEST ON ERROR 

11 SW09-1. FREEZE VARIABLE PARAMETER IN CURRENT TEST 

12 SWOl-1. START PROGRAM AT SELECTED TEST 

13 SWOO-1, CHANGE Pi^RAMETERS AT PROGRAM RESTART 
14 

15 5.2 SUBROUTINE ABSTRACTS 

16 

17 5.2.1 TRAPCATCHER (LOCATIONS 000000-000776) 

18 

19 THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 

20 AND TRAPS. THE AREA FROM 000000-000776 IS LOADED 

21 WITH THE FOLLOWING SEQUENCE 
22 

23 2 

24 0 

25 4 

26 0 
27 

28 772 

29 0 

30 776 

31 0 
32 

33 IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS. THE PROGRAM 

34 WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO 

35 WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 

36 BE EXAMINED TO DETERMINE WHERE TfC PROGRAM WAS WHEN THE 

37 TRAP OR INTERRUPT OCCURED. 
38 

39 5.2,'' START (PROGRAM INITIALIZATION) 

40 

41 THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, 

42 TYPES THE PROGRAM TITLE MESSAGE, ANC INPUTS THE VECTOR 

43 AND CONTROL REGISTER ADDRESSES OF THE DHll TO BE TESTED. 
44 

45 5,2.3 BEGIN (PROGRAM START AND RESTART) 

46 

47 THIS ROUTINE IS ENTERED IMMEDIATLY AFTER "START* 

48 AND EACH TIME A PROGRAM PASS HAS BEEN COMPLETED. 

49 THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 

50 AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 

51 TESTING WILL BEGIN. IF SWOl-O WHEN THIS ROUTINE IS ENTERD 

52 TESTING WILL START AT Tl (TEST 1). IF SWOl-1 WHEN 

53 THIS ROUTINE IS ENTERED. TESTING WILL START AT THE PC 

54 ENTERED FROM THE TELETYPE KEYBOARD. 
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SEQ 6 



1 

2 5.2.4 EOP (END OF PASS) 

3 

4 THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 

5 HAVE BEEN COMPLETED. THIS ROUTINE TYPES THE MAINDEC 

6 IDENTIFICATION CODE OF THE PROGRAM. CLEARS ERROR FLAGS 

7 AND UPDATES THE PASS COUNT. IF THE PROGRAM WAS LOADED 

8 UNDER ACTll OR DDP. THE ROUTINE CHECKS FOR RETURN TO 

9 THE ACTll OR DDP MONITOR. IF THE PROGRAM IS NOT UNDER 
10 MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 

12 5.2.5 SCOPER (SCOPE LOOP AND ITERATION HANDLER) 

13 

14 THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. 

15 THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY 

16 A) IF SWlO-1. THE ROUTINE WILL TRANSFER TO THE NEXT TEST 

17 IN SEQUENCE. AFTER CLEARING ERROR FLAGS. 

18 B) IF SWll-1. THE ROUTINE WILL TRANSFER TO THE NEXT TEST 

19 SEQUENCE. AFTER CLEARING ERROR FLAGS. 

20 C) IF SW14«1. THE ROUTINE WILL LOOP ON THE CURRENT TEST 

21 REGARDLESS OF THE ITERATION COUNT. 
22 

23 IF NONE OF THE ABOVE IS TRUE. THE ROUTINE WILL ADO 1 

24 TO THE COUNT OF TEST ITERATIONS. AND COMPARE THIS VALUE 

25 TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 

26 IF THESE NUMBERS ARE EQUAL. THE ROUTINE WILL TRANSFER 

27 TO THE NEXT TEST IN SEQUENCE, THE THE NUMBERS ARE NOT 

28 EQUAL. THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 
29 

30 5.2.6 SCOPIR (FREEZE ON CURRENT DATA) 

31 

32 THE CALL TO THIS ROUTINE FOLLOWS IMMEOIATLY AFTER THE 

33 THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE 

34 VARIABLE PARAMETERS. THIS ROUTINE IS ALWAYS ENTERED IN 

35 THOSE TESTS. WHETHER OR NOT AN ERROR OCCURS. 

36 IF SU09-1. THE ROUTINE WILL TRANSFER CONTRtX. BACK TO TtC 

37 TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION 

38 UNDER TEST CONTINUOUSLY WITH THE SAME DATA. IF THIS 

39 OPTION IS SELECTED. THE ROUTINE "SCOPER" IS NEVER ENTERED 

40 AND ITERATION COUNTS WILL NOT BE UPDATED. 
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5.2.7 ERRORS (ERROR HANDLER) 

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 

WITH ALL CONSOLE SWITCHES DOWN. THE ROUTINE PROCEOES AS FOLLOWS: 

A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER 
IS ACCESSED THRU THE STACK. AND THEN THE EMT INSTRUCTION 
ITSELF IS FETCHED. THE 8 LSB OF THE EMT 
INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 

USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR 
DATA STORAGE LOCATIONS. 

B) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 
DURING THIS PASS. A COMPLETE ERROR REPORT IS MADE 
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 
THE CURRENT PASS. ONLY THE DATA RELATING TO THE FAILUER 
IS TYPED. IF SU13-1. NO ERROR TYPEOUT IS MADE. 

C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SW15»1 
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO 

THE ERROR ROUTINE IN RO. IF SW15-0. THE PROGRAM WILL 
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST, 

D) IF SW10«0. THE ROUTINE WILL RETURN 

TO THE TEST IN PROGRESS. IF SWlO-1. THE ROUTINE WILL 
ABORT THE CURRENT TEST. AND TRANSFER TO THE NEXT 
TEST IN SEQUENCE. THRU THE ROUTINE "SCOPER". 

5.2.8 TRPSRV (TRAP DECODE AND DISPATCH) 

THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 
THAT CAUSED TH PROGRAM INTERRUPT. AND TRANSFERS CONTROL 
TO THE ROUTirC THRU THE TABLE "TRPTAB" USING THE 8 LSB 
OF THE TRAP INSTRUCTION MS AN OFFSET TO THE POINTER TO 
THE ROUTINE TO BE ENTERED. 
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SEQ a 



1 

2 5.3 PROGRAM AND OR OPERATOR ACTION 
3 

4 5.3.1 PROGRAM START UITH ALL SWITCHES DOWN 
5 

6 5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 

7 BEHAVIOR . 
8 

9 5.3.1.2 AFTER "R" HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 

10 WILL BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER 

11 OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 

12 AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST. 
13 

14 5.3.1.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED. THE PROGRAM 

15 WILL TYPE "CZOHF-C" AND THEN RESTART TESTING AT TEST 1 

16 (LOCATION Tl IN THE PROGRAM). 
17 

18 5.3.1.4 IF AN ERROR OCCURS. THE PROGRAM WILL TYPE AN APPROPRIATE 

19 ERROR MESSAGE. AND THEN CONTINUE THE TEST IN PROGRESS. 
20 

21 5.3.2 PROGRAM START WITH SWOO'l 
22 

23 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 
24 

25 5.3.3 PROGRAM START UITH SWOl-1 
26 

27 5.3.3.1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 
28 

29 5.3.3.2 TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED 

30 AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2 
31 

32 5.3.3.3 AFTER "CZDHF-C HAS BEEN TYPED. THE PROGRAM WILL 

33 RESUME TESTING AT TEST 1 
34 

35 5.3.4 PROGRAM OPERATION UITH SUlS-1 
36 

37 SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR. 

38 THE PROGRAM UILL HALT AFTER THE ERROR TYPEOUT, AND 

39 THE PC*2 OF THE CALL TO THE ERROR ROUTINE UILL BE 

40 DISPLAYED IN RO. 
41 

42 5.3.5 PROGRAM OPERATION UITH SU13-1 
43 

44 SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS UILL OCCUR 
45 

46 5.3.6 PROGRAM OPERATION UITH SUll-1 
47 

48 SAME AS 5.3.1 EXCEPT THAT EACH TEST UILL BE REPEATED ONCE 

49 ONLY 
50 

51 5.3.7 PROGRAM OPERATION UITH SU10«1 
52 

53 SAME AS 5.3.1. EXCEPT THAT IN THE CASE OF AN ERROR 

54 THE CURRENT TEST UILL BE ABORTED. AND THE PROGRAM 

55 UILL PROCEED TO THE NEXT TEST IN SEQUENCE. 
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SEQ 9 



1 

2 5, (CONT'D) 

3 

4 5.3.8 PROGRAn OPERATION WITH SU14-1. OR SU09-1 

5 

6 THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 

7 SEE SECTION 6.3 TOR THEIR USE. 
8 

9 6. ERRORS 

10 

11 6.1 ERROR HALTS 

12 

13 THE ERROR NESSAGF FORMAT FOR ALL ERROR TYPEOUTS 

14 IS AS FOLLOWS 
15 

16 PC*2 MESSAGE 

17 HEADER (IF APPLICABLE) 
16 DATA (IF APPLICABLE) 
19 

20 WHERE 

21 PC»2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER ♦ 2 

22 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE 

23 HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 

24 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 

25 IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME 

26 PASS. AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 

27 DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 
28 

29 IF NO DATA IS ASSOCIATED WITH THE ERROR 

30 THE COMPLETE ERROR MESSAGE IS TYPED. 
31 

32 6.1.1 ERROR DESCRIPTIONS 

33 

34 SEE LISTING FOR DETAILS OF ERRORS 

35 

36 6.2 ERROR RECO/ERY 

37 

38 6.2.1 SWlS-0 

39 

40 IF THE PROGRAM IS RUN WITH SW15-0. NO OPERATOT ACTION IS 

41 REQUIRED TO CONriNUE TESTING 

42 6.2.2 SWiS-1 
43 

44 IF THE PROGRAM IS RUN WITH SW15-1. TO CONTINUE TESTING 

45 AFTER THE PROGRAM HAS HALTED. PRESS THE PROCESSOR 

46 CONSOLE CONTINUE SWITCH 
47 

48 6.2.3 ILLEGAL INTERRUPTS 

49 

50 IF AN INTERRUPT OCCURS TO A VECT(« ADDRESS NOT 

51 SELECTED DURING PROGRAM INITIALIZATION. THE PROGRAM WILL 

52 HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH 

53 THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS 

54 TO WHICH THE INTERRUPT OCCURED. THE PROGRAM MUST BE 

55 RESTARTED AT 200 TO RECOVER FROM THIS ERROR. 
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SEQ 10 



1 

2 6.3 SCOPE LOOPING 

3 

4 6.3.1 TO SCOPE ON A SPECIFIC TEST. SET SWIA"! AND SW13=1 

5 THIS UILL CAUSE THE PROGRAK TO CONTINUOUSLY LOOP ON THE 

6 SAME TEST. AND UILL CAUSE ALL ERROR TYPbOUTS TO BE INHIBITED 

7 

8 6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PARAMETER WITHIN 

9 A TEST. SET SU09-1 TO FREEZE THE DATA 

10 (SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 

11 

12 6. (CONT'D) 

13 

14 6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

15 

16 PERFORM SECTION 4.3.4 WITH SU14-1 

17 

18 7. RESTRICTIONS 

19 

20 7.1 STARTING 

21 

22 THE DHll TEST CARD MUST BE INSTALLED 

23 

24 7.2 RUNNING 

25 

26 NONE 
27 

28 8. MISCELLANEOUS 

29 

30 8.1 EXECUTION TIME 

31 

32 THE TIME FOR ONE PASS OF THE PROGRAM (END OF 

33 TYPEOUT OF CZOHF-C TO FND OF TYPEOUT OF CZDHF-C) 

34 IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOk 
35 

36 TItC 

37 PROCESSOR 
38 

39 POP- 11/05. 10 

40 

41 POP- 11/20 

42 

43 POP- 11/40 

44 

45 POP- 11/45 

46 
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SEQ 11 



1 

2 9. PROGRAM DESCRIPTION 

3 

4 THE FIRST GROUP OF TESTS TRANSMITS ALL CHARACTERS (C-377) 

5 ONE AT A TIME AT A LINE SPEED OF 9600 BAUD AND A 

6 CHARACTER LENGTH OF 8 BITS. EACH LINE IS CHECKED IN AN 

7 INDIVIDUAL LOOP. EACH TEST IN THIS GROUP 

8 CAN BE SET UP UNDER PROGRAM CONTROL TO LOOP ON A SINGLE 

9 CHARACTER USING THE FREEZE ON DATA (SU09) OPTION. 
10 

11 THE NEXT GROUP OF TESTS VERIFIES THAT ALL CHARACTERS CAN 

12 BE TRANSMITTED AT EACH STANDARD SPEED (50-9600 BAUD) 

13 AT 8 BITS PER CHARACTER. EACH LINE IS TESTED IN AN 

14 INDIVIDUAL TEST LOOP, AND A PARTICULAR SPEED CAN BE 

15 CHOSEN FOR SCOPING BY USING THE FREEZE ON DATA OPTION. 
16 

17 THE FINAL GROUP OF TESTS TRANSMITS ALL CHARACTERS AT 

la EACH CHARACTER LENGTH (5-8 BITS) AT 9600 BAUD ON A SINGLE 

19 LINE. EACH LINE IS TESTED IN AN INDIVIDUAL TEST LOOP 

20 AND A PARTICULAR CHARACTER LENGTH CAN BE CHOSEN FOR 

21 SCOPING USING THE FREEZE ON DATA (SU09} OPTION. 
22 

23 10. LISTING 

24 

25 ! 
26 
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SEQ 12 



1 
2 
3 
4 
5 
6 
7 

104 
119 
131 
148 
158 
167 
303 
339 
373 
520 
563 
595 
607 
652 
664 
691 
712 
743 
744 
745 



OHMAC-A - OHll MACRO LIBRARY 

COPYRIGHT 1985. DIGITAL EQUIPMENT CORP. 



MAYNARO. MASS. 01754 



.LIST 
•NLIST 



ME 

MC.MD.CND 



CMS REPLACEMENT HISTORY 



746 


*9 


SKONETSKI 


26 APR -1985 


16:23:08 


747 


i *8 


SKONETSKI 


22- APR -1985 


16:48:03 


748 


; *7 


SKONETSKI 


22- APR 1985 


16:26:04 


TRAPS . " 










749 


*6 


SKONETSKI 


22 -APR -1985 


14:22:35 


750 


*5 


SKONETSKI 


22 -APR -1985 


08:28:54 


CLEAN END OF PASS 










MESSAGE. 










751 


*4 


SKOrCTSKI 


18 -APR -1985 


14:20:15 


752 


*3 


SKONETSKI 


12-APR-1985 


10:34:52 


753 


*2 


SKONETSKI 


ll-APR-1985 


16:00:24 


TCH REGISTER' 










754 


*1 


SKONETSKI 


ll-APR-1985 


15:49:05 



"FIXED TYPO CAUSING ASSEMBLY ERRORS - 

"TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED " 

"ADDED CODE TO SET VECTORS FOR PUR FAIL. ERRORS. AND EMT 



"ADDED SOFTWARE SWITCH REG SUPPORT. BLT UNTESTED " 
'FIXED PROBLEMS WITH SPURIOUS CR/LFS" 

"AODEO HACRO FROM SYSHAC.SHL THAT SIZES FOR SOFTUARE SUI 
"LIBRARY FOR OHll DIAGNOSTICS' 
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SEQ 13 



2 
3 

5 000000 



000000 



6 OCOOOO 



.LIST Mt 
.NLIST MC.MD.CNO 

.HEADER t/1972. 1976. 1985/,t/0Hll SINGLE LINE DATA TEST/. t/CZDHF-CO/ 

(STARTING PROCEDURE 
LOAD PROGRAM 
LOAD ADDRESS 000200 
PRESS START 

PROGRAM WILL TYPE DHll SINGLE LINE DATA TEST 
PROGRAM MILL TYPE "VECTOR ADDRESS-" 
TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
FOR THE DHll TO BE TESTED. FOLLOWED BY <CARRIAGE RETURN> 
t PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-" 
:TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
sFOR THE DHll TO BE TESTED, FOLLOUEO BY <CARRIAGE RETURN> 
(PROGRAM WILL TYPE "R" TO INDICATE THAT TESTING HAS STARTED 
(AT THE END OF A PASS. PROGRAM WILL TYPE " CZDHF-CO " 
:ANP THEN RESUK TESTING 

.TITLE CZDHF-CO 
.ENABLE ABS 
.NLIST MC.MD.CND 
.LIST ME 
.SYMBOLS 



(SWITCH REGISTER OPTIONS 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



SWIS- 
SW14' 
SW13< 
SW12> 
SW11> 
SWIO' 
SW09< 
SW06> 
SW06< 
SWOS< 
SW04< 
SW03> 
SW02' 
SWOl' 
SWOO' 



100000 

.40000 

'20000 

r 10000 

'4000 

'2000 

1000 

'400 

100 

'40 

20 

10 

'4 

2 

1 



{-l.HALT ON ERROR 
i-l.LOOP ON CURRENT TEST 
J -I. INHIBIT ERROR TYPEOUT 

(-1. INHIBIT ITERATIONS 

i-1. ESCAPE TO NEXT TEST ON ERROR 

(-l.LOOP WITH CURRENT DATA 



(RESTART PROGRAM AT SELECTED TEST 
;RESELECT VECTOR AND CONTROL REGISTER 
(ADDRESS AFTER PROGRAM RESTART 
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SEQ 14 



{REGISTER DEFINITIONS 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



177776 
C20164 



005746 
005726 
010046 
012600 
024646 
022626 



R0-«0 
Rl««l 
R2-«2 
R3-*3 
R4-«4 
R5-<5 
SP-*6 
PC-*7 



;GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 
{PROCESSOR STACK POINTER 
: PROGRAM COUNTER 



{LOCATION EQUIVALENCIES 

sSUR-177570 sCONSOLE SWITCH REGISTER 
SLIGHTS' 177570 ;PDP-ll/45 DISPLAY REGISTER 
PS-177776 jPROCESSOR STATUS UORO 

STACK-ENDC00t200 sSTART OF PROCESSOR STACK 

{INSTRUCTION DEFINITIONS 



: 3 

: 4 
i 4 

s 3 



PUSHlSP-5746 
POPlSP-5726 
PUSHRO-10046 
POPRO- 12600 
PUSH2SP- 24646 
P0P2SP-22626 

! MACRO HLT 
EMT 

•ENDM HLT 



{DECREMENT PROCESSOR STACK 1 WORD 
{INCREMENT PROCESSOR STACK 1 WORD 
{SAVE RO ON STACK 
{RESTORE RO FROM STACK 
{DECREMENT STACK TWICE 
{INCREMEN'T STACK TWICE 



tA 
$A 



1 000000 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



BIT15-10C000 

BIT14-40000 

BIT13-20000 

BIT12- 10000 

BITll-4000 

6IT10-2000 

BIT09-1000 

6IT08-400 

BIT07-200 

BIT06»100 

BIT05-40 

BIT04-20 

BIT03-10 

8IT02-4 

BITOl-2 

BITOO-1 

.CATCH 



s 3 
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) 






1 TBAPrATrAFII 


rOR ILLEGAL INTERRUPTS 




000000 


. »0 








000200 


REPT 


c w 










• * c 


•UNEXPECTFD TRAP TD TMTQ 1 nrATTnw 








HAI T 


■ EXAMINE STACK TQ TTNO CAIJSF 






ENOR 






000000 


000002 




. ♦2 


•UNEXPFCTFD TRAP TO THT<; 1 nrflTTOW 


000002 


oocooo 




HALT 


: EXAMINE STACK TQ FIND CAUSF 


000004 


000006 




_ t2 


lUNEXPECTED TRAP TO THIS 1 QCATinw 


000006 


000000 




HALT 


: EXAMINE STACK TO FIND CAUSF 


000010 


000012 




. +2 


■ UNEXPECTED TRAP TO THIS 1 QCATinw 


000012 


000000 




HALT 


■EXAMINE STACK TO FIND CAUSF 


000014 


000016 




. *2 


■ UNEXPECTED TRAP TO THIS 1 QCATTflN 


000016 


000000 




HALT 


lEXAMINE STACK TO FIND CAUSE 


000020 


000022 




. *2 


lUNEXPECTED TRAP TO THIS LQCATinN 


000022 


000000 




HALT 


I EXAMINE STACK TO FIND CAUSE 


000024 


000026 




. *2 


■UNEXPECTED TRAP TQ THIS LQCATTQN 


000026 


000000 




HALT 


■EXAMINE STACK TO FIND CAUSE 


000030 


000032 




. +2 


■UNEXPECTED TRAP TO THIS LOCATION 


000032 


000000 




HALT 


: EXAMINE STACK TO FIND CAUSE 


000034 


000036 




. *2 


■UNEXPECTED TRAP TO THIS LOCATION 


000U36 


000000 




HALT 


lEXAMINE STACK TO FIND CAUSE 


0C0040 


000042 




. *2 


■UNEXPECTED TRAP TO THIS LOCATION 


0C0042 


000000 




HALT 


.•EXAMINE STACK TO FIND CAUSE 


0C0044 


000046 




. *2 


.•UNEXPECTED TRAP TO THIS LOCATION 


000046 


000000 




HALT 


: EXAMINE STACK TO FIND CAUSE 


000050 


000052 




. *2 


s UNEXPECTED TRAP TO THIS LOCATION 


000052 


000000 




HALT 


iEXAMINE STACK TO FIND CAUSE 


000054 


000056 




. *2 


lUNEXPECTED TRAP TO THIS LOCATION 


000056 


000000 




HALT 


:EXAMINE STACK TO FIND CAUSE 


000060 


000062 




. *2 


lUNEXPECTED TRAP TO THIS LOCATION 


000062 


OOOCOO 




HALT 


:EXAMINE STACK TO FIND CAUSE 


000064 


000066 




. *2 


lUNEXPECTED TRAP TO THIS LOCATION 


000066 


000000 




HALT 


(EXAMINE STACK TO FIND CAUSE 


000070 


000072 




. *2 


sUNEXPECTED TRAP TO THIS LOCATION 


000072 


000000 




HALT 


.•EXAMINE STACK TO FIND CAUSE 


000074 


000076 




. *2 


sUNEXPECTED TRAP TO THIS LOCATION 


000076 


000000 




HALT 


iEXAMINE STACK TO FIND CAUSE 


000100 


000102 




. *2 


iUNEXPECTEO TRAP TO THIS LOCATION 


000102 


000000 




HALT 


s EXAMINE STACK TO FIND CAUSE 


000104 


000106 




. *2 


lUNEXPECTED TRAP TO THIS LOCATION 


000106 


000000 




HALT 


lEXAMINE STACK TO FIND CAUSE 


000110 


000112 




. *2 


{UNEXPECTED TRAP TO THIS LOCATION 


000112 


000000 




HALT 


{EXAMINE STACK TO FIND CAUSE 


000114 


000116 




. *2 


{UNEXPECTED TRAP TO THIS LOCATION 


000116 


000000 




HALT 


{EXAMINE STACK TO FIND CAUSE 


000120 


000122 




.♦2 


{UNEXPECTED TRAP TO THIS LOCATION 


000122 


000000 




HALT 


iEXAMINE STACK TO FIND CAUSE 


000124 


000126 




.♦2 


sUNEXPECTED TRAP TO THIS LOCATION 


000126 


000000 




HALT 


(EXAMINE STACK TO FIND CAUSE 


000130 


000132 




. *2 


sUNEXPECTED TRAP TO THIS LOCATION 


000132 


000000 




HALT 


{EXAMINE STACK TO FIND CAUSE 


000134 


000136 




.♦2 


{UNEXPECTED TRAP TO THIS LOCATION 


000136 


000000 




HALT 


iEXAMINE STACK TO FIND CAUSE 


000^ 


000142 




.♦2 


{UNEXPECTED TRAP TO THIS LOCATION 


00^142 


000000 




HALT 


{EXAMINE STACK TO FIND CAUSE 


00 )144 


000146 




.*2 


{UNEXPECTED TRAP TO THIS LOCATION 



SEQ 15 



C2DHF-C0 
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000146 


000000 


HALT 


000150 


000152 


.♦2 


000152 


000000 


HALT 


000154 


000156 


.♦2 


000156 


000000 


HALT 


000160 


000162 


.♦2 


000162 


000000 


HALT 


000164 


000166 


.♦2 


000166 


000000 


HALT 


000170 


000172 


.♦2 


000172 


000000 


HALT 


000174 


000176 


..2 


000176 


000000 


HALT 


000200 


000202 


.♦2 


000202 


000000 


HALT 


000204 


000206 


.♦2 


000206 


000000 


HALT 


000210 


000212 


.♦2 


000212 


000000 


HALT 


000214 


000216 


.*Z 


000216 


000000 


HALT 


000220 


000222 


.•2 


000222 


000000 


HALT 


0C0224 


000226 


.♦2 


0C0226 


000000 


HALT 


000230 


000232 


.♦2 


000232 


000000 


HALT 


000234 


000236 


.♦2 


000236 


000000 


HALT 


000240 


000242 


.♦2 


000242 


000000 


HALT 


000244 


000246 


.♦2 


000246 


000000 


HALT 


000250 


000252 


.•2 


000252 


000000 


HALT 


000254 


000256 


.*2 


000256 


000000 


HALT 


000260 


000262 




000262 


000000 


HALT 


000264 


000266 


-•2 


000266 


000000 


HALT 


000270 


000272 


.*2 


0C0272 


000000 


HALT 


000274 


000276 


.♦2 


000276 


000000 


HALT 


0C0300 


000302 


.♦2 


000302 


000000 


HALT 


000304 


000306 


.♦2 


000306 


000000 


HALT 


000310 


000312 


.♦2 


000312 


000000 


HALT 


000314 


000316 


. *2 


000316 


000000 


HALT 


000320 


000322 


,♦2 


000322 


000000 


HALT 


000324 


000326 


,♦2 


000326 


000000 


HALT 



;EXAmNE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS i OCATION 
:EXAmNE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS '.OCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATIOI- 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
;EXAMIME STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
, EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LWTATION 
I EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
;EXAniNE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE S^ACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
lEXAMINE STACK TO FIND CAUSE 
t UNEXPECTED TRAP TO THIS LOCATION 
tEXANINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOC.UION 
iCXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
5 UNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
•.EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
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000330 


000332 


.♦2 


000332 


000000 


HALT 


000334 


000336 


.♦2 


000336 


000000 


HALT 


000340 


000342 


.♦2 


000342 


000000 


HALT 


^0344 


000346 


.♦2 


000346 


000000 


HALT 


000350 


000352 


.♦2 


000352 


000000 


HALT 


000354 


000356 


.♦2 


000356 


000000 


HALT 


000360 


000362 


.♦2 


000362 


000000 


HALT 


000364 


000366 


.♦2 


000366 


000000 


HALT 


000370 


000372 


.♦2 


000372 


000000 


HALT 


000374 


000376 


.♦2 


000376 


000000 


HALT 


000400 


000402 


.♦2 


000402 


000000 


HALT 


000404 


000406 


.*Z 


0C0406 


000000 


HALT 


000410 


000412 


.♦2 


000412 


000000 


HALT 


000414 


000416 


.♦2 


000416 


000000 


HALT 


000420 


000422 


.♦2 


000422 


000000 


HALT 


000424 


000426 


.*Z 


000426 


000000 


HALT 


000430 


000432 


.*Z 


000432 


000000 


HALT 


000434 


000436 


.♦2 


000436 


000000 


HALT 


000440 


000442 


.♦2 


000442 


000000 


HALT 


000444 


000446 


.*Z 


000446 


000000 


HALT 


000450 


000452 


.♦2 


000452 


000000 


HALT 


000454 


000456 


.♦2 


000456 


000000 


HALT 


000460 


000462 


.♦2 


000462 


000000 


HALT 


000464 


000466 


.♦2 


000466 


000000 


HALT 


000470 


000472 


.♦2 


000472 


000000 


HALT 


000474 


000476 


.♦2 


000476 


000000 


HALT 


000500 


000502 


.♦2 


000502 


000000 


HALT 


000504 


000506 


.♦2 


000506 


000000 


HALT 


000510 


000512 


.♦2 



:UNEXPECTED TRAP TO THIS LOCATION 
1 EXAMINE STACK TO FIND CAUSE 
;UNEXPECTEO TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
:UNEXPECTEO TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTEO TRAP TO THIS LOCATION 
:EXAMINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
J EXAMINE STACK TO FIND CAUSE 
! UNEXPECTED TRAP TO THIS LOCATION 
:EXAMINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
! UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UrCXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
.UNEXPECTED TRAP TO THIS LOCATION 
sEXAMirC STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
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000512 


000000 


HALT 


000514 


000516 


. *2 


000516 


A A A A A A 

000000 


HALT 


000520 


C00522 


. +2 


000522 


A A A A A A 

000000 


HALT 


000524 


000526 


. *2 


000526 


A A A A A A 

000000 


HALT 


000530 


AA AC 

000532 


. *2 


AAA W% 

000532 


A A A A A A 

000000 


HALT 


AA AC VH 

000534 


AA AC V£ 

000536 


. *2 


AA AC V£ 

000536 


A A A A A A 

000000 


HALT 


AA AC4 A 

000540 


AAAC M 

000542 


. *2 


AAAC M *i 

0«>0542 


AA AAAA 

000000 


HALT 


000544 


AA AC A£. 

000546 


. *2 


000546 


AA AAAA 

000000 


HALT 


AAACCA 

000550 


AA ACf O 

000552 


. *2 


000552 


AAAAAA 

000000 


HALT 


AAACCJI 

0005S4 


000556 


. *2 


AAACC£ 

000556 


AAAAAA 
000000 


LI A 1 T 

HALT 


AAACCA 

000560 


AAAC^'^ 

000562 




AAAC^'^ 

000562 


AAAAAA 
000000 


HALT 


AAAC&^ 

000564 


AAAC^& 

000566 


. *Z 


AAAC££ 


AAAAAA 

ooouoo 


Ll A 1 T 

HALT 


AAACCA 

0v0570 


AAAC^O 

000572 


. *2 


AAACT-i 

0005 iZ 


AAAAAA 
000000 


LJ A 1 ▼ 

rALT 


UUU5 


AAAC7£ 


. *2 


AAA^Til 
OUU J lO 


AAAAAA 


UAI T 

HMLT 


AAA^AA 

uuuouu 


AAAilAO 


. +2 


AA AilAO 


AAAAAA 


UAI T 

HMLT 


AAA£ 


AA A^A£ 


. -5 
. *c 


AAAilA^ 


AAAAAA 


UAI T 

HMLT 


AAA^ 1 A 


AAA^ 1 n 


. *2 


AAA£ 1 O 

uuooi<: 


AAAAAA 


UAI T 

HHLT 


AAA£ 1 A 

00 Ob In 


AAA£ 1 ti 


. *2 


AAA^ 1 C 


AAAAAA 


UAI T 

HHL 1 


AAA^OA 
OUUO^U 


AAA£ 


. +2 


AAAi^ 


AAAAAA 


UAI T 

HMLT 


AAAil OA 


yyyoco 


. *c 




AAAAAA 

uyyuyy 


UAI T 

nML 1 




AAAAT3 

yyyoAc 


. *c 




AAAAAA 


UAI T 

HMLT 




AAA£.T^ 

yyyooo 


. *c 


AAA£.T£. 


AAAAAA 


UAI T 

HMLT 


AAAi^AA 




. *Z 




AAAAAA 

uuyyyy 


UAI T 

HMLI 


UOOO*W 


AAA£.A^ 
0UU040 


. *C 


0UU04f> 


AAAAAA 

uyyyyy 


UAI T 

HMLT 


UUU05U 


UUU05C 


. *2 


AAAiLCO 
U0\K)5c 


AAAAAA 

uuyuyy 


UAI T 

riHL 1 


0UU054 


yuyo5o 


. *c 


UUU050 


AAAAAA 


UAI T 






^2 


000662 


000000 


HALT 


000664 


000666 


.♦2 


000666 


000000 


HALT 


000670 


000672 


.♦2 


000672 


000000 


HALT 



;EXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
I EXAMINE STACK TO FIND CAUSE 
i UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
: UNEXPECTED FRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSE 
i UNEXPECTED TRAP TO THIS LOCATIuN 
i EXAMINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
i UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
iEXAiJNE STACK TO FIND CAUSE 
; UNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
.•EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UrCXPECTEO TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LXATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED IRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUS*" 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
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SEQ 19 





AAAiL7&. 


• *c 




AAAAAA 


UAI T 


KJKJKJ fSJSJ 


AAA7A5 


. *c. 




AAAAAA 


UAI T 


AAA7 AA 


AAA7Ail 
UVU / Vt> 


. *c 


AAA7Ail 


AAAAAA 
WVA/W 


UAI T 
nnL 1 


f\f\f\1 1 A 


AAA7 1 3 
WV f Xc 


• *c 


1 0 

sjij J 1 Ic 


AAAAAA 
VVVvVV 


MAI T 


WW ' A*» 


AAA7 1 
Wv r XO 


■ * c 


VA/V r XO 


AAAAAA 


MAI T 
nnL 1 


AAA73A 


AAA730 
VW r cc 


« 


AAA730 


AAAAAA 

vvww 


UAI T 
nnL 1 




Wv f cO 


• 




AAAAAA 
WWW 


UAI T 
nnu 1 


AAA7Xn 


AAA7T3 
WV r Oc 


• 


AAA7TO 


AAAAAA 
WWW 


HAI T 


A/\A7'IA 


AAA7TJ; 
WV r OD 




WV r 


AAAAAA 
WWW 


HAI T 
nnL 1 




WV r 


i3 


WV r 


000000 
www 


HAI T 


AAA7AA 


0007AA 
W V f Hv 


t3 




OOOOOO 
www 


HALT 


W V f 


O0O7<vP 

W V ■ 


■ 


0C07SP 
wv#w ' ^c. 


OOOOOO 
www 


HALT 


WV » J*r 


0A07<^ 
VW r jlO 


A*? 

• ♦ c 


WV f 


OOOOOO 
www 


HALT 
rif 1^ 1 


WV I WW 


0007 6P 

WV f WC 




000762 


OOOOOO 

www 


HALT 


0007^ 


000766 

WV • WW 




000766 


OOOOOO 


HALT 


000770 


000772 


.♦2 


000772 


OOOOOO 


HALT 


000774 


000776 


.♦2 


000776 


OOOOOO 


HALT 


1 001000 




.SETVEC 



: UNEXPECTED TRAP TO THIS LOCATION 
.■EXAMINE STACK TO FIND CAUSE 
i UNEXPECTED TRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSE 
i UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
jUNEXPECTED TRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSZ 
(UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
iEXAMirC STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
iEXAHINE STACK TO FIND CAUSE 
s UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATIOK 
(EXAMINE SfACK TO FItO CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
sEXAMIiC STACK TO FIND CAUSE 



C20HF-C0 
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SEQ 20 



0 J STANDARD INTERRUPT VECTORS 

000200 . -200 

000200 000167 000600 JMP START :G0 TO START OF PROGRAM 



1 000204 .TRPDEF 

; DEFINITIONS FOR TRAP SUBROUTINE CALLS 
:P0INTERS TO SUBROUTINES CAN BE FOUND STARTING 
;AT LOCATION "TRPTAB" 

000204 TRPDEF SCOPE. t/SCOPE LOOP AND ITERATION HANDLER/ 

104400 SC0PE-TRAP*Y sSCOPE LOOP AND ITERATION HANDLER 

000001 Y-Y*l 

000204 TRPDEF TYPE.t/TELETYPE OUTPUT ROUTINE/ 

104401 TYPE-TRAP*Y jTELETYPE OUTPUT ROUflNE 

000002 Y-Y*l 

000204 TRPDEF OCTASC.t/OCTAL TO ASCII CONVERSION/ 

104402 OCTASC«TRAP*Y ;OCTAL TO ASCII CONVERSION 

000003 Y-Y*l 

000204 TRPDEF INSTR. t/INPUT ASCII STRING/ 

104403 INSTR"TRAP*Y sIWUT AC-CII STRING 

000004 Y-Y*l 

0C0204 TRPDEF INST ER.t /STRING INPUT ERROR/ 

104404 INSTER>TRAP*Y :STRING INPUT ERROR 

000005 Y«Y«1 

000204 TRPDEF P AR AM. t/ CONVERT STRING TO OCTAL. CHECK LIMITS/ 

104405 PARAM-TRAP*Y :CONVERT STRING TO OCTAL. CHECK LIMITS 

000006 Y-Y+1 

000204 TRPDEF SAVOSP.t/SAVE R0-R5. PC/ 

104406 SAV05P-TRAP«Y :SAVE R0-R5. PC 

000007 Y-Y+1 

000204 TRPDEF RES05. t/RESTORE R0-R5/ 

104407 RES05»TRAP*Y .RESTORE R0-R5 

000010 Y«Y»1 

0C3204 TRPDEF SCOPEl.t /CHECK FOR FREEZE ON CURRENT DATA/ 

104410 SC0PE1-TRAP*Y -.CHECK FOR FREEZE ON CURRENT DATA 

000011 Y-Y*l 

2 000046 .-46 

3 000046 015056 LOGICAL 

4 000052 .-52 

5 000053 040000 40000 

6 .tt"CRO COOEMl 

7 MOV OHSSR.OHSLR :SET UP ADDRESS OF SILO 

8 INC OHSLR {STATUS REGISTER HIGH BYTE 

9 ,ENDM CODEMl 

10 000054 .START DHRVEC.3,4.DHSCR.O, 177776.7, 10. . .1 
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SEQ ?1 



0 001000 .'1000 

:PROGRAM INITIALIZATION 
:L0CI< OUT INTERRUPTS 
jSET UP PROCESSOR STACK 
:SET UP POUER FAIL VECTOR 
: CLEAR PROGRAM FLAGS ANO COUNTS 
sTYPE TITLE MESSAGE 
.IIP NB <>, sDETERMINE MEMORY SIZE 

.IV NB <>, iSET UP TRACE TRAP RETURN 



Aft 1 AAA 


1 77170 






dHn : 


UOBO 
• mUnV 


177'!70 


SUITCH DHSCR ADDRESS : 


4 


A/\ t f\f\0 


1 77170 






1 TRMTC . 

Lxun 1 o : 


unoo 

• NUnU 


177170 


LIGHTS ; 


4 




01 9767 


OflO'^AO 


1 7676A 


^TART* 
J 1 nn 1 ■ 






LOCK OUT INTERRUPTS 


4 


001019 


019706 


0901 64 






MOV 


dSTACK SP 


SET UP PROCESSOR STACK 




OOlOlfi 

W XV Aw 


012709 


00002il 






MOV 


424 . R2 


POINT TO VECTOR AREA 


7 


001099 


019799 


016764 






hov 


4PFAIL (R2)» 


SET UP POUER FAIL TRAP ( 7 


001026 


01272r 

vx4b r cc 


000340 






MOV 


«340 (R2). 


SERVICE AT LEVEL 7 , 7 






VX wC Xw 






MOV 


AERRORS (R2)* 


ERROR HANDLER ■ 7 




012722 


000340 

WW ww^W 






MOV 




SERVICE AT LEVEL 7 * 7 


001042 


012722 

VXb ( 


015430 






MOV 


«TRPSRV (R2)* 


GENERAL HANDLER DISPATCH SERVICE : 7 


00 1046 


012712 

VXC ( xc 


000340 

wwwW^W 






MOV 


4340 (R2) 

w w^w f 


SERVICE AT LEVEL 7 j 


8 


0C1052 


005067 


015274 






CLR 


STFLG 


iCLFAR TEST START FLAG 




001056 


005067 

WW Jww • 


015230 






CLR 


PmSCNT 


; CLEAR PASS COUNT 




0C1062 


005067 

WW www I 


015226 






CLR 


ERRCNT 


i CLEAR ERROR COUNT 




001066 

WW AW W 


005067 

WW www • 


015216 






CLR 


ERRFLG 


: CLEAR ERROR FLAG 




001072 


005067 

WW www • 


015212 






CLR 


ERRFL6 


; CLEAR LAST ERROR PC 




001076 

WW XV f V 


016746 


176702 






MOV 


4. -(SP) 


i PUSH TRAP VECTOR 


4 


001102 


016746 


176700 






MOV 


6. -CSP) 




■ 4 




01 97fe7 




1 7i;A70 




MOV 


♦1». 4 


1 SET UP TRAP VECTOR 


; 4 


001114 


005777 


177660 






TST 


9SUR 


I TEST SUITCH REGISTER ADDRESS 


; 4 


001120 


000405 








BR 


2» 


; IF SUCCESSFUL. LEAVE IT ALONE 


: 4 


001122 








1$; 








; 4 


001122 

WX 


012767 

VXb f V f 


000176 

WWWA > w 


177650 




MOV 


«176. SUR 


; POINT TO SOFT SUITCH DHSCR 


i 4 


001130 

^^^r A A W W 


005067 


177646 






CLR 


LIGHTS 


: 0 MEANS UE ARE NOT GOING 10 USE LIGHTS 


001134 








2): 








; 5 


001134 


005726 








TST 


(SP). 


: CLEAN UP STACK 


: « 


001136 


005726 








TST 


(SP). 




: 4 


001140 


012667 


176642 






MOV 


(SP)., 6 




! 4 


001144 


012667 


176634 






MOV 


(SP).. 4 




! 4 


001150 


104401 


017134 






TYPE 


.MTITLE 


sTYPE TITLE MESSAGE 




001154 


005767 


015170 






TST 


1NIFL6 


t CHECK IKITIALIZATION FLAG 












.IF NB 


<OHRVEC> 






OCiloC 


001001 








BNE 


VECl 


sIF NOT 0. CHECK SUITHCS 


















J FOR REIfUTIALIZATION 












.IFF 


















BNE 


BEGIN 


jIF NOT 0. START TEST 












.ENOC 


















.IF NB 


<> 
















SIZE: 


CLR 


RO 
















MOV 


«2«.8*4 


;SET UP TIME OUT RETURN 












1%: 


TST 


(RO). 


iUILL TRAP UHEN NO MEMORY 


! 9 












BR 


1$ 


! LOCATION RESPONDED. CONTINUE 












2*: 


MOV 


RO.HCORE 


iRO CONTAINS ADDRESS OF 














SUB 


#2.HC0RE 


iNON EXIST ANT MEMORY 


s 9 












MOV 


«6.S«4 


(RESTORE TRAPCATCHER 
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.ENOC 
.IF NB 
TRACER: 



1*: 



.ENOC 
.IF NB 



MOV 
SXT 
MOV 
BR 
MOV 
MOV 
MOV 

<DHRVEC> 



n«.s«io 

RO 

♦RTT.TRTRET 
2« 

#RTI.TRTRET 
«12.S«10 
«TRTRET.S«16 











.IF B 


<> 




001162 


000404 






.IFF 
. tNuL 


BR 

TST 

DP A 

BEQ 


VEC2 

INIFLG 
VEC2 


001164 


012777 


AAAAA4 

000001 


1 f 7oOo 


VtLl : 


DT T 


ACLIAA BCIJD 


001172 


AA4 Jk MC 

001445 








DCU 


DCblN 


001174 








VCV.C : 






001174 


A 4 A4 

012701 


AA A7 AA 

000300 






HUV 


v300 ,K1 


001200 


A« OTAO 

012702 


AAAT AO 

000002 






nu V 




1 ^ Ail 

001204 


012 /Oi5 


AAAAAA 

000004 






nuv 


w4 iKS 


AA * O 1 A 

001210 


A« AO 1 1 

010211 






14. 

i« : 


nuv 


00 roi \ 
1 k Kl J 


A A 1 Oi O 

001212 


AACAi O 

005012 








LLK 




UU121** 


OoOoOl 








Ann 




UU121D 


ODUOUc 








Ann 


no *Kc 


UvlccO 


AOA1 07 


AA1 AAA 










001224 


001371 








6NE 


1$ 


001226 


104403 








INSTR 






A1 "71 "7^ 








nvcu I UK 






1 AR 








OAPAH 






uuuoou 








Ovv 




001236 


000770 








770 




0U1240 


UlD^UU 




















R YTP 






001c40 


AAA 






.D 1 1 C 


A 
H 














INSTR 




001246 


017217 








MREGAO 




001250 


104405 








PARAM 




001252 


000000 








0 




001254 


177776 








177776 




001256 


016256 








OHSCR 




001260 


007 






.BYTE 


7 




001261 


010 






.BYTE 
.ENOC 
.IF NB 


10 
<1> 




001262 










CODEMl 




001262 


016767 


015006 


015006 




MOV 


DHSSR.DHSLI 


001270 


005267 


015002 




.ENDC 


INC 


DHSLR 


001274 


005767 


015050 






TST 


INIFLG 


001300 


001002 








BNE 


BEGIN 


001302 


005167 


015042 






COM 


INIFLG 



jPROGRAM START 

jCHECK FOR PROGRAM START 



SEQ 22 



:SET UP ILLEGAL INSTRUCTION TRAP RETURN 

;DQ 11/40. 11/45 INSTRUCTION 

; 11/40.45 RTT RETURN FROM TRACE TRAP 

: 1105, 10,20 RTI RETURN FROM TRACE TRAP 
iRESTROE TRAPCATCHER 
sSCT UP TRACE TRAP VECTOR 



J IF INITIALIZE FLAG-O 

:GET VECTOR AND CSR ADDRESS 

ilF SUOO-1. GET NEU VECTOR : 4 

iKW CSR 

! 4 

! 4 



{RESTORE TRAPCATCHER 
;IN FLOATING VECTOR AREA 



INPUT ADDRESS OF DEVICE VECTOR 
MESSAGE -VECTOR ADDRESS " 
CONVERT STRING TO OCTAL 
LOU LIMIT 

HIGH LIMIT ! 3 

LOCATIONS TO BE FILLED 
NUMBER OF LOCATIONS 
LSB MASK 

INPUT ADDRESS OF DEVICE CSR 
MESSAGE 'CONTROL REGISTER ADDRESS 
CONVERT STRING TO OCTAL 
LOU LIMIT 
HIGH LIMIT 

LOCATIONS TO BE FILLED 
NUMBER OF LOCATIONS 
LSB MASK 



;SET UP ADDRESS OF SILO 
{STATUS REGISTER HIGH BYTE 

sIF INITIALIZATION FLAG 
ilS CLEARED 
J SET IT 

! 3 

SELECTED ADDRESS 
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001306 


012767 


000340 


176462 


BEGIN: 


MOV 


#340. PS 


001314 


012706 


020164 






MOV 


#STACK.SP 


001320 


032777 


000002 


177452 




BIT 


#SU01.SSUR 


001326 


001410 








BEQ 


1« 


001330 


104403 








INSTR 




001332 


017406 








MTSTPC 




001334 


104405 








PMRAM 




001i36 


000000 








0 




001340 


017500 








17500 




001342 


016316 








RETRN 




001344 


001 






.BYTE 


1 




001345 


001 






.BYTE 


1 




001346 


000410 








BR 


2$ 


001350 


012767 


001400 


014740 


1*: 


MOV 


*T1. RETRN 


001356 


005767 


014770 






TST 


STFLG 


001362 


001004 








BNE 


3t 


001364 


005167 


014762 






COM 


STFLG 


001370 


104401 


017402 




2$: 


TYPE 


.MR 


001374 


000177 


014716 




3»: 


JMP 


SRETRN 



LOCK OUT INTERRUPTS 
SET UP PROCESSOR STACK 
IF SWOl-1 

GET PC FOR PROGRAM START 

GET PC 

MESSAGE "TEST PC" 
CONVERT STRING TO OCTAL 



; NORMAL START. TEST 1 

jIF LOOPING, BYPASS TYPEOUT 



jTYPE "R" TC INDICATE START 
;START TESTING 
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SEQ 24 



1 
4 
5 
6 
7 
9 
10 
11 
12 
13 
14 
IS 



000000 
000000 
000001 
000001 
000020 



001400 



001400 
001400 
0C1406 
001414 



012767 
012767 
012767 



000340 
000010 
001540 



176370 
014710 
014676 



001422 012767 001464 014672 



001430 
001436 
001442 



000002 
012777 
012703 
012767 



001450 012777 
001456 012777 



001464 
001472 
001500 
001506 
001512 
001514 
001520 
001524 
001526 
001526 
001530 
001532 
001536 
001540 



001542 



012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 

104000 
104410 
105267 
001352 
104400 
000001 
000002 



004000 
000000 
100000 



000000 
033503 



177777 
016356 
000001 
014544 

014540 
014632 



014620 



014620 
014706 



014600 
014576 



014574 
014564 
014562 



LINE'O 

XLINE-LINE 

BITX-1 

XBIT-BITX 

.REPT 20 

SOATAl \LINEABITX 

.NLIST 

LINE-LINE*! 

BITX-BITX*BITX 

.LIST 

.ENOR 

SOATAl \LINE.\BITX 



; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 
s CHARACTER LENGTH IS 8 BITS. 
:LINE SPEED IS 9600 BAUD. 



TS \XN.10.4».1» 
Tl: MOV 

MOV 

MOV 

.IF NB <1»> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 



0340. PS 
♦lO.ICOUNT 
44$. ESCAPE 

«1».FREEZ1 



«eiTll.SOHSCR 

«0.R3 :SET 

«0*400 a00000, TOATA 



MOV «0,fiOHSCR 
MOV *33503,80HLPR 



1»: 



2»: 



MOV 
MOV 
MOV 
TSTB 
BPL 
MOV 
CMP 
6EQ 
HLT 
EMT 

SCOPE I 
INCB 
BNE 

4»: SCOPE 
LINE-LINE*1 
BITX"BITX»BITX 
SOATAl \LINE.\BITX 



3» 



*-l,a)HBC 
•TOATA.dOHBA 
*1.80H8AR 
80HSCR 
2t 

90KNRC.R4 
R4,TDATA 
3» 

0 
0 

TOATA 
li 



.•DISABLE ALL INTERRUPTS 

;SET UP FOR 10 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO L-)0P UITH DA' A 



jMASTER CLEAR INTERFACE 
UP LINE NUMBER 



SET EXPECTED LINE NtJMBER 

AND VALID DATA FLAG 

EXPECTED DATA 

SELECT LINE 0 

SELECT 8 BITS CHARATER 

LENGTH, 9600 BAUD SPEEO 

FOR LINE 0 

TRANSMIT 1 CHARACTER 
ADDRESS OF TRANSMIT DATA 
START TRANSMITTER 
UAIT FOR CHARACTER 
TO 8E RECEIVED 
GET RECEIVED CHARACTER 
COMPARE EXPECTED AND 
RECEIVED DATA 
DATA ERROR 

CHECK FOR LOOP UITH CURRENT DATA 
(UPDATE TRANSMIT DATA 

S CHECK FOR ITERATIONS. LOOP 



TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE I. 
CHARACTER LENGTH IS 8 BITS. 
LINE SPEEO IS 9600 BAUD. 
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SEQ 25 



001542 
001542 
001550 
001556 



012767 
012767 
012767 



000340 
000010 
001702 



176226 
014546 
014534 



001564 012767 001626 014530 



001572 
001600 
001604 



000003 
012777 
012703 
012767 



001612 012777 
001620 012777 



001626 
001634 
001642 
0C1650 
0C16S4 
001656 
001662 
001666 
001670 
001670 
001672 
001674 
001700 
001702 



001704 



012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 

104000 
104410 
105267 
001352 
104400 
000002 
000004 



004000 
000001 
100400 



000001 
033503 



177777 
016356 
000002 
014402 

014376 
014470 



014456 



014456 
014544 



014436 
014434 



014432 
014422 
014420 



TS \XN.10.4$.1» 
T2 : MOV 

MOV 

MOV 
.IF NB <1»> 

MOV 

.ENOC 
XN-XN«1 

MOV 
MOV 
MOV 



2»: 



3$: 



4*: 



MOV 
MOV 



MOV 

MOV 

MOV 

TSTB 

BPL 

MOV 

CMP 

6EQ 

HLT 

EMT 

SCOPEl 

INCB 

8NE 

SCOPE 



♦340. PS 
nO.ICOUNT 
«4$, ESCAPE 

«1$.FREEZ1 



♦BITll.OOHSCR 

#1.R3 sSET 

«1*400*100000.TDATA 



♦l.SOHSCR 
•33503. OOHuPR 



♦-1.S0H6C 

«TDATA,0IMBA 

•2.8DHBAR 

SOHSCR 

2) 

aOHNRC.R4 

R4,T0ATA 

3) 

0 

0 

TDATA 
it 



LINE-LINE. 1 
B1TX»BITX*BITX 
SOATAl \LINE.\BITX 



:0ISABLE ALL INTERRUPTS 

J SET UP FOR 10 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



sMASTER CLEAR INTERFACE 
UP LINE NUMBER 

I SET EXPECTED LINE NUMBER 

iANO VALID DATA FLAG 

J EXPECTED DATA 

J SELECT LINE 1 

.'SELECT 8 BITS CHARATER 

.LENGTH. 9600 BAUD SPEED 

:FOR LINE 1 

.TRANSMIT 1 CHARACTER 
s ADDRESS OF TRANSMIT DATA 
i START TRANSMITTER 
iUAIT FOR CHARACTER 
I TO BE RECEIVED 
(GET RECEIVED CHARACTER 
{COMPARE EXPECTED AND 
{RECEIVED DATA 
(DATA ERROR 

{CHECK FOR LOOP UITH CURRENT DATA 
{UPDATE TRANSMIT DATA 

{CHECK FOR ITERATIONS. LOOP 



{TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 2. 
{CHARACTER LENGTH IS 8 BITS. 
{LINE SPEED IS 9600 BAUD. 



001704 
001704 
001712 
001720 



001734 
001742 
001746 



001754 
001762 



012767 
012767 
012767 



000340 
000010 
002044 



000004 
012771 
012703 
012767 



012777 
012777 



004000 
000002 
101000 



000002 
033503 



176064 
014404 
014372 



001726 012767 001770 014366 



014314 
014402 



014274 
014272 



TS \XN.10.4I.1» 

T3: 



.IF NB 

.ENDC 
XN-XNU 



MOV 
MOV 
MOV 
<l»> 
MOV 



MOV 
MOV 
MOV 



MOV 
MOV 



♦340. PS 

♦lO.ICOUNT 
♦4 ». ESCAPE 

♦It.FREEZl 



♦BIT11.90HSCR 
♦2.R3 iSE. 
♦2*400*100000. TDATA 



♦2. SOHSCR 
♦33503. 6DHLPR 



{DISABLE ALL INTERRUPTS 

{SET UP FOR 10 ITERATIONS 

J SET UP TO ESCAPE TO HEXl TEST 

(SET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 
UP LINE NUMBER 

tSFT EXPECTED LINE NUMBER 

(AND VALID DATA FLAG 

{EXPECTED DATA 

(SELECT LINE 2 

(SELECT 8 BITS CHARATER 
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001770 


012777 


177777 


014270 


1*: 


MOV 


•-1.80H6C 


001776 


012777 


016356 


014260 




MOV 


•TDATA.SOHBA 


002004 


012777 


000004 


014256 




MOV 


M.SDHBAR 


002012 


105777 


014240 




2»: 


TSTB 


80HSCR 


002016 


100375 








BPL 


2) 


AA '^/S 

002020 


017704 


014234 






MOV 


8DHNRC ,R4 


002024 


020467 


014326 






CMP 


R4.TDATA 


002030 


001401 








BEQ 


3$ 


002032 










HLT 


0 


002032 


104000 








EMT 


0 


002034 


104410 






3$: 


SCOPEl 




002036 


105267 


014314 






INCB 


TDATA 


002042 


001352 








BNE 


1$ 


002044 


104400 






4$: 


SCOPE 





002046 



002046 
002046 
002054 
002062 



000003 
000010 



LIN£-LINE*1 
BITX-BITX*BITX 
SOATAl \LINE.\BITX 



{TRANSMIT ALL CHARACTERS ONE 
{CHARACTER LENGTH IS 8 BITS. 
(LINE SPEED IS 9600 BAUD. 



012767 
012767 
012767 



000340 
000010 
002206 



175722 
014242 
014230 



TS \XN,10,4».1» 



T4: 



002070 012767 002132 014224 



002076 
002104 
002110 



C00005 
012777 
012703 
012767 



004000 
000003 
101400 



014152 
014240 



.IF MB 

.ENOC 
XN-XN*! 



MOV 

MOV 

MOV 

<!♦> 

MOV 



MOV 

nov 

MOV 



«340.PS 
nO.ICOUNT 
•4». ESCAPE 

nt. FREEZl 



«eiT11.80HSCR 

♦3,R3 {SET 

«3*400*100000. TDATA 



002116 


012777 


000003 


014132 




MOV 


«3.80HSCR 


002124 


012777 


033503 


014130 




MOV 


♦33503. 80HLPI 


002132 


012777 


177777 


014126 


1»: 


MOV 


*-1.80HBC 


002140 


012777 


016356 


014116 




MOV 


•T0ATA.80HBA 


002146 


012777 


000010 


014114 




MOV 


•10.80HBAR 


002154 


105777 


014076 




2$: 


TSTB 


80HSCR 


002160 


100375 








BPL 


2) 


002162 


017704 


014072 






MOV 


8DHNRC.R4 


002166 


020467 


014164 






CMP 


R4,T0ATA 


002172 


001401 








BEQ 


3» 


002174 










HLT 


0 


002174 


104000 








EMT 


0 


002176 


104410 






3): 


SCOPEl 




002200 


105267 


014152 






INCB 


TDATA 


002204 


001352 








BNE 


IS 


002206 


104400 






4*: 


SCOPE 






000004 






LINE 


-LINE ♦I 





SEQ 26 



(LENGTH. 9600 BAUD SPEED 
{FOR LINE 2 

(TRANSMIT 1 CHARACTER 
(ADDRESS OF TRANSMIT DATA 
(START TRANSMITTER 
(WAIT FOR CHARACTER 
(TO BE RECEIVED 
(GET RECEIVED CHARACTER 
(COMPARE EXPECTED AND 
(RECEIVED DATA 
(DATA ERROR 

(CHECK FOR LOOP WITH CURRENT DATA 
(UPDATE TRANSMIT DATA 

(CHECK FOR ITERATIONS^ LOOP 



T A TIME ON LINE 3. 



{DISABLE ALL INTERRUPTS 
(SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 
P LINE NUMBER 

(SET EXPECTED LINE NUMBER 

(AND VALID DATA FLAG 

(EXPECTED DATA 

(SELECT LINE 3 

(SELECT 8 BITS CHARATER 

(LENGTH. 9600 BAUD SPEED 

(FOR LINE 3 

(TRANSMIT 1 CHARACTER 
(ADDRESS OF TRANSMIT DATA 
(START TRANSMITTER 
(WAIT FOR CHARACTER 
(TO BE RECEIVED 
(GET RECEIVED CHARACTER 
(COMPARE EXPECTED AND 
(RECEIVED DATA 
(DATA ERROR 

(CHECK FOR LOOP WITH CURRENT DATA 
(UPDATE T9ANSmT DATA 

(CHECK FOR ITERATIONS. LOOP 
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SEQ 27 



002210 



002210 



000020 



BITX'BITX»BITX 
SOATAl VLINE.VBITX 



; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 4. 
i CHARACTER LENGTH IS 8 BITS. 
tLINE SPEED IS 9600 BAUD. 



TS \XN,10.4I.1» 





OXc lb 1 




1 7CQ£A 


T5: 


nOV 


#340, PS 


002216 


012767 


000010 


014100 




MOV 


♦lO.ICOUNT 






Art 37 


A1 AA&&, 




nuv 


AAA CCCADC 










.IF NB 


<i»> 














nuv 
































01 3777 








Mnu 


MITT 11 anuCPQ 




VAC f 








Mnu 
nuv 






019767 

VAC ■ W I 








Mnu 

nu¥ 


aaaa « 1 nnnnn that a 

v^»^UU*lUUUUUt 1 UW 1 A 


002260 


012777 

VAC I < f 


000004 


013770 




MOV 




002266 


012777 


033503 


013766 




MOV 




002274 


012777 


177777 


013764 


1» : 


MOV 


#•1 aOHBC 


002302 


012777 


016356 


013754 




MOV 


ATDATA aOHBA 


002310 


012''77 


000020 


013752 




MOV 


A90 aDHBAR 


002316 


105777 


013734 




2»: 


TSTB 


SOHSCR 


002322 


100375 








BPL 


2) 


002324 


017704 


013730 






MOV 


90HNRC.R4 


002330 


020467 


014022 






CMP 


R4.T0ATA 


002334 


001401 








BEQ 


3$ 


002336 










HLT 


0 


002336 


104000 








EMT 


0 


002340 


1C4410 






3): 


SCOPEl 




002342 


105267 


014010 






INCB 


TDATA 


002346 


001352 








BNE 


1* 


002350 


104400 






4$: 


SCOPE 






000005 






LIN£«LIN£*1 






000040 






BITX-BITX*BITX 




002352 








SOATAl 


\LINE.\BITX 



i DISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
jSET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 
LINE NUMBER 

;SET EXPECTED LINE NUMBER 

sAND VALID DATA FLAG 

{EXPECTED DATA 

.•SELECT LINE 4 

s SELECT 8 BITS CHARATER 

{LENGTH. 9600 BAUD SPEED 

{FOR LINE 4 

{TRANSMIT 1 CHARACTER 
{ADDRESS OF TRANSMIT DATA 
{START TRANSMITTER 
{UAIT FOR CHARACTER 
{TO BE RECEIVED 
:GET RECEIVED CHARACTER 
{COMPARE EXPECTED AND 
{RECEIVED DATA 
{DATA ERROR 

{CHECK FOR LOOP UITH CURRENT DATA 
{UPDATE TRANSMIT DATA 

{CHECK FOR ITERATIONS. LOOP 



002352 



TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 5. 
CHARACTER LENGTH IS 8 BITS. 
LINE SPEED IS 9600 BAUD. 



TS \XN.10.4$.1$ 



002352 012767 000340 175416 T6: MOV 

MOV 



002360 012767 000010 013736 

002366 012767 002512 013724 

002374 012767 002436 013720 

000007 

002402 012777 004000 013646 

002410 012703 000005 



MOV 
.IF NB <1$> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 



♦340. PS 
«10.IC0UNT 
M$. ESCAPE 

♦1».FREEZ1 



4BIT11.8DHSCR 
«5.R3 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 10 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 
{SET UP LINE NUMBER 
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002414 012767 102400 013734 



MOV 



«5*400*100000.TDATA 



002422 012777 OOOOOS 013626 
002430 012777 033503 013624 



MOV «5.80HSCR 
MOV ♦33503. 80HLPR 



002436 
002444 

002452 
002460 
002464 
002466 
002472 
002476 
002500 
002500 
002502 
002504 
00251C 
002512 



002514 



002514 
002514 
002522 
0C2530 



002544 
002552 
002556 



012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 

104000 
104410 

105267 
001352 
104400 
000006 
000100 



012767 
012767 
012767 



177777 
016356 
000040 
013572 

013566 
013660 



013646 



000340 
000010 
002654 



013622 
013612 
013610 



000010 
012777 
012703 
012767 



004000 
000006 
103000 



175254 
013574 
013562 



002536 012767 002600 013556 



013504 
013572 



1*: 



2): 



3): 



4r 



MOV 

MOV 

MOV 

TSTB 

BPL 

MOV 

CMP 

BEQ 

HLT 

EMT 

SCOPE 1 
INCB 
BNE 
SCOPE 



«-l.SOHBC 

«T0ATA.SDH6A 

«40.80HBAR 

80H5CR 

2i 

S0HNRC.R4 

R4,T0ATA 

3) 

0 
0 

TOATA 
1» 



LINE-LINE*! 
BITX-BITX*BITX 
SDATAl \LINE.\BITX 



{TRANSMIT ALL CHARACTERS ONE 
{CHARACTER LENGTH IS 8 BITS. 
sLINE SPEED IS 9600 BAUD. 



TS \XN.10.4».1$ 
T7: nOV 
HOV 

nov 

.IF NB <1»> 
MOV 

.ENOC 
XN>XN'l 

MOV 
MOV 
HOV 



«340.PS 
•lO.ICOUNT 
•41 .ESCAPE 

•H.FREEZl 



«eiT11.0OHSCR 

«6.R3 tSET 

«6*400*100000. TDATA 



002564 
002572 



012777 
012777 



000006 
033503 



013464 
013462 



MOV «6.80HSCR 
MOV «33S03,BDHLPR 



002600 012777 177777 013460 1»: MOV ♦-1.90HBC 

002606 012777 016356 013450 MOV «T0ATA.80HeA 

002614 012777 000100 013446 MOV fflOO.SOHBAR 

002622 105777 013430 2»: TSTB 80HSCR 

002626 100375 BPL 2» 

002630 017704 013424 MOV 80HNRC,R4 

002634 020467 013516 CMP R4.TDATA 

002640 001401 BEQ 3> 

002642 HLT 0 



SEQ 29 



J SET EXPECTED LINE NUMBER 

;ANO VALID DATA FLAG 

iEXPECTEO DATA 

jSELECT LINE 5 

J SELECT 8 BITS CHARATER 

LENGTH. 9600 BAUD SPEED 

FOR LINE 5 

TRANSMIT 1 CHARACTER 
ADDRESS OF TRANSMIT DATA 
START TRANSMITTER 
WAIT FOR CHARACTER 
TO BE RECEIVED 
GET RECEIVED CHARACTER 
COMPARE EXPECTED AND 
RECEIVED DATA 
DATA ERROR 

CHECK FOR LOOP WITH CURRENT DATA 
UPDATE TRANSMIT DATA 

(CHECK FOR ITERATIONS. LOOP 



T A TIME ON LINE 6. 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEUT TEST 

(SET UP TO LOOP WITH DATA 



(MASTER aEAR INTERFACE 
IP LINE NUMBER 



SET EXPECTED LINE NUMBER 

AND VALID DATA FLAG 

EXPECTED DATA 

SELECT LINE 6 

SELECT 8 BITS CHARATER 

LENGTH. 9600 BAUD SPEED 

FOR LINE 6 

TRANSMIT 1 CHARACTER 
ADDRESS OF TRANSMIT DATA 
START TRANSMITTER 
WAIT FOR CHARACTER 
TO BE RECEIVED 

jGET RECEIVED CHARACTER 

(COMPARE EXPECTED AND 

(RECEIVED DATA 

(DATA CRROR 
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SEQ 29 



002642 104000 
002644 104410 
002646 105267 013504 
002652 001352 
002654 104400 

000007 

000200 

002656 



002656 



EMT 0 

3$: SCOPEl 

INCB TOATA 
BNE 1$ 

4$: SCOPE 

LINE -LINE ♦! 

BITX»BITX*BITX 

SOATAl \LINE,\BITX 



;CHECK FOR LOOP WITH CURRENT DATA 
;UPOATE TRANSMIT DATA 

;CHECK FOR ITERATIONS. LOOP 



{TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 7, 
{CHARACTER LENGTH IS S BITS. 
{LINE SPEED IS 9600 BAUD. 



T3 \XN.J0,4$.1» 



002656 


012767 


000340 


175112 


TIO: 


MOV 


•340. PS 


DISABLE ALL INTERRUPTS 


002664 


012767 


000010 


013432 




MOV 


♦lO.ICOUNT 


SET UP FOR 10 ITERATIONS 


002672 


012767 


003016 


013420 




MOV 


♦4 ». ESC APE 


SET UP TO ESCAPE TO NEXT TEST 










.IF NB 


<1$> 




002700 


012767 


002742 


013414 




MOV 


♦ll.FREEZl :SET UP TO LOOP WITH DATA 










.ENOC 










000011 






XN>XN*1 








002706 


012777 


004000 


013342 




MOV 


«BITll,aOHSCR {MASTER CLEAR INTERFACE 


002714 


012703 


000007 






MOV 


«7,R3 iSET UP LINE NUMBER 


0C2720 


012767 


103400 


013430 




MOV 


«7*400*100000. TOATA 


SET EXPECTED LINE NUMBER 
AND VALID DATA FLAG 
EXPECTED UATA 


002726 


012777 


000007 


013322 




MOV 


«7.90HSCR 


SELECT LINE 7 


002734 


012777 


033503 


013320 




MOV 


#33503. SGHLPR 


SELECT 8 BITS CHARATER 
LENGTH. 9600 BAUD SPEED 
FOR LINE 7 


002742 


012777 


177777 


013316 


1*: 


MOV 


«-l.aDHBC 


{TRANSMIT 1 CHARACTER 


002750 


012777 


016356 


013306 




MOV 


«TDATA.S0H8A 


i ADDRESS Or TRANSMIT DATA 


002756 


012777 


000200 


013304 




MOV 


«200.8DHBAR 


i START TRANSMITTER 


002764 


105777 


013266 




2»: 


TSTB 


aOHSCR 


iHAIT FOR CHARACTER 


002770 


100375 








6PL 


2* 


iTO BE RECEIVED 


002772 


017704 


013262 






MOV 


80HNRC.R4 


iGET RECEIVED CHARACTER 


002776 


020467 


013354 






CMP 


R4. TOATA 


; COMPARE EXPECTED AND 


003002 


001401 








BEQ 


3« 


{RECEIVED DATA 


003004 










HIT 


0 


{DATA ERROR 


003004 


104000 








EMT 


0 




003006 


104410 






3): 


SCOPEl 


:CHECK FOR LOOP WITH CURRENT DATA 


003010 


105267 


013342 






INCB 


TOATA 


{UPDATE TRANSMIT DATA 


003014 


001352 








BNE 


If 




003016 


104400 






4): 


SCOPE 


: CHECK FOR ITERATIONS. LOOP 




000010 






LINE«LINE»1 








000400 






BITX«BITX*BITX 






003020 








SOATAl 


\LINE,\BITX 





003020 

003020 012767 000340 174750 

003026 012767 000010 013270 

003034 012767 003160 013256 



TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 10. 
CHARACTER LENGTH IS 8 BITS. 
LINE SPEED IS 9600 BAUD. 



TS \XN.10.4$,1$ 

Til: MOV #340. PS 

MOV #10.IC0UNT 
MOV #4 (.ESCAPE 



jDISABLF ALL INTERRUPTS 

{SET UP FOR 10 ITERATIONS 

I SET UP TO ESCAPE TO NEXT TEST 
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SEQ 30 



003042 012767 003104 013252 



00C012 

003050 012777 004000 

003056 012703 000010 

003062 012767 104000 



003070 012777 000010 
003076 012777 033503 



003104 
'X)3112 
003120 
003126 
0031X2 
003134 
003140 
003144 
003146 
0C3146 
003150 
003152 
003156 
003160 



003162 



003162 
003162 
003170 
003176 



012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 

104000 
104410 
105267 
001352 
104400 
000011 
001000 



177777 
016356 
000400 
013124 

013120 
013212 



013200 



012767 
012767 
012767 



000340 
000010 
003322 



013200 
013266 



013160 
013156 



013154 
013144 
013142 



174606 
013126 
013114 



003204 012767 003246 013110 



003212 
003220 
003224 



003232 
00324,0 



003246 
003254 
003262 



000013 
012777 
012703 
012767 



012777 
012777 



012777 
012777 
012777 



004000 
000011 
104400 



000011 
033503 



177777 
016356 
001000 



013036 
013124 



013016 
013014 



013012 
013002 
013000 



.IF NB <1»> 

nov 

.ENDC 

MOV 
MOV 
MOV 



MOV 

nov 



1»: 



2t: 



3$: 



4$: 



MOV 

MOV 

MOV 

TSTB 

BPL 

MOV 

CMP 

BEQ 

HLT 

EMT 

SCOPEl 
INCB 
BNE 
SCOPE 



«1>.FREEZ1 



«BIT11,80HSCR 

#10. R3 ;SET 

«10*400« 100000. TOATA 



nO.SOHSCR 
«33S03.80HLPR 



«-l.SDHBC 

«TDATA.8DHBA 

«400.aOHBAR 

8DHSCR 

2» 

S0HNRC.R4 

R4.TDATA 

3$ 

0 

0 

TOATA 
it 



LINE'LT JE*1 
BITX blTX^BITX 
SDA-Al \LINE.\BITX 



sSET UP TO LOOP UITH DATA 



jMASTER CLEAR INTERFACE 
UP LINE NUMBER 



SET EXPECTED LINE NUMBER 

AND VALID DATA FLAG 

EXPECTED DATA 

SELECT LINE 10 

SELECT 8 BITS CHARATER 

LENGTH, 9600 BAUD SPEED 

FOR LINE 10 

TRANSMIT 1 CHARACTER 

ADDRESS OF TRANSMIT DATA 

START TRANSMITTER 

WAIT FOR CHARACTER 

TO BE RECEIVED 

GET RECEIVED CHARACTER 

COMPARE EXPECTED AND 

RECEIVED DATA 

DATA ERROR 

CHECK FOR LOOP WITH CURRENT DATA 
UPDATE TRANSMIT DATA 

CHECK FOR ITERATIONS. LOOP 



; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 
s CHARACTER LENGTH IS 8 BITS. 
:LINE SPEED IS 9600 BAUD. 



11. 



TS \XN.10.4$.1» 
T12: MOV 

MOV 

MOV 

.IF N6 <1»> 
MOV 

.ENOC 
XN-XN»1 

MOV 
MOV 
MOV 



#340. PS 
«10.IC0UNT 
«4 I. ESCAPE 

«lf.FREEZl 



•BITil.SOHSCR 
«11.R3 iSET 
«11*400* 100000 , TDATA 



11: 



MOV Ml.SOHSCR 
MOV #33503. 80HLPR 



MOV #-l,80»«C 
MOV #TDATA.8DHBA 
MOV #1000.80HBAR 



s DISABLE ALL INTERRUPTS 
:SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 



•.MASTER CLEAR INTERFACE 
UP LINE NUMBER 



:SET EXPECTED LINE NUMBER 

tAND VALID DATA FLAG 

jEXPECTED DATA 
SELECT LINE 11 
SELECT 8 BITS CHARATER 
LENGTH. 9600 BAUD SPEED 
FOR LINE 11 
TRANSMIT 1 CHARACTER 
ADDRESS OF TRANSMIT DATA 

{START TRANSMITTER 
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SEQ 31 



003270 
003274 
003276 
003302 
003306 
003310 
003310 
003312 
003314 
003320 
003322 



003324 



105777 012762 
100375 

017704 01275b 
020467 013050 
001401 

104000 
104410 

105267 013036 

001352 

104400 

000012 

002000 



2t: 



3*: 



4»: 



TST8 

BPL 

MOV 

CMP 

BEQ 

HLT 

EMT 

SCOPEl 
INCB 
BNE 
SCOPE 



9DHSCR 
2t 

dCHNRC.R4 

R4.T0ATA 

3) 

0 

0 

TDATA 
It 



LINE-LINE»1 
BITX«BITX»BITX 
SDATAl \LINE.\BITX 



jUAIT FOR CHARACTER 

;T0 BE RECEIVED 

:GET RECEIVED CHARACTER 

J COMPARE EXPECTED AND 

;RECEIVEO DATA 

:DATA ERROR 

; CHECK FOR LOOP WITH CURRENT DATA 
i UPDATE TRANSMIT DATA 

; CHECK FOR ITERATIONS, LOOP 



{TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 12. 
: CHARACTER LENGTH IS 8 BITS. 
:LINE SPEED IS 9600 BAUD. 



003324 
003324 
003332 
003340 



012767 
012767 
012767 



000340 
000010 
003464 



174444 
012764 
012752 



003346 012767 003410 012746 



003354 
003362 
003366 



003374 
003402 



003410 
003416 
003424 
003432 
003436 
003440 
003444 
003450 
003452 
003452 
003454 
003456 
003462 
003464 



003466 



000014 
012777 
012703 
012767 



012777 
012777 



012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 

104000 
104A10 
105267 
001352 
104400 
000013 
004000 



004000 
000012 
105000 



000012 
033503 



1777 77 
016356 
002000 
012620 

012614 
012706 



012674 



012674 
012762 



012654 
012652 



012650 
012640 
012636 



TS \XN,10,4$.1» 
T13: MOV 

MOV 

MOV 
.IF NB <lt> 

MOV 

.ENDC 
XN>XN*1 

MOV 
MOV 
MOV 



1»: 



21 



3»: 



♦340. PS 
«10.ICOUNT 
♦4 ». ESCAPE 

*lt,FREEZl 



«BIT11.0DHSCR 
M2.R3 iSET 
«12*400* 100000 . TOATA 



MOV «12,80HSCR 
MOV •33503. SOHLPR 



MOV 
MOV 
MOV 
TSTB 
BPL 
MOV 
CMP 
BEQ 
HLT 
EMT 

SCOPEl 
INCB 
BNE 

4»: SCOPE 
LINE»LINEa 
BITX«BITX*BITX 
SDATAl \LINE.\BITX 



•-1.80HBC 
•TOATA, SDHBA 
•2000.80HBAR 
80HSCR 
2* 

S0HNRC.R4 
R4, TDATA 
3» 

0 
0 

TOATA 
1» 



i DISABLE ALL INTERRUPTS 

sSET UP FOR 10 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

.SET UP TO LOOP UITK DATA 



sMASTER CLEAR INTERFACE 
UP LINE NUMBER 



SET EXPECTED LINE NUMBER 

AND VALID DATA FLAG 

EXPECTED DATA 

SELECT LINE 12 

SELECT 8 BITS CHARATER 

LENGTH. 9600 BAUD SPEED 

FOR LINE 12 

TRANSMIT 1 CHARACTER 

ADDRESS OF TRANSMIT DATA 

START TRANSMITTER 

UAIT FOR CHARACTER 

TO BE RECEIVED 

GET RECEIVED CHARACTER 

COMPARE EXPECTED AND 

RECEIVEr DATA 

DATA ERROR 

i CHECK FOR LOOP WITH CURRENT DATA 
iUPDATE TRANSMIT DATA 

s CHECK FOR ITERATIONS. LOOP 



: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 13. 
•.CHARACTER LENGTH IS 8 BITS. 
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SEQ 32 



I LINE SPEED IS 9600 BAUD. 



003466 

003466 012767 000340 174302 

003474 012767 000010 012622 

003502 012767 003626 012610 

003510 012767 003552 012604 



000015 
003516 012777 
003524 012703 
003530 012767 



003536 
003544 



003552 
003560 
0C3566 
0C3574 
003600 
003602 
003606 
003612 
003614 
003614 
003616 
003620 
003624 
003626 



003630 



003630 
003630 
003636 
003644 



012777 
012777 



012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 

104000 
104410 

105267 
001352 
10t400 
00X14 
010000 



012767 
012767 
012767 



004000 
000013 
105400 



012532 
012620 



000013 012512 
033503 012510 



177777 012506 

016356 012476 

004000 012474 
012456 

012452 
012544 



012532 



000340 
000010 
003770 



003660 
003666 
003672 



000016 
012777 
012703 
012767 



004000 
000014 
106000 



174140 
012460 
012446 



003652 012767 003714 012442 



012370 
012456 



TS SXN.10,4$.1» 
T14: MOV 

HOV 
MOV 

.IF m <1»> 
HOV 

.ENOC 
XN-XN«1 

MOV 
MOV 
MOV 



#340. PS 
nO.ICOUNT 
«4$, ESCAPE 

*1».FREEZ1 



«BIT11.80HSCR 
«13,R3 



;SET 

«13*400« 100000. TDATA 



i DISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



: MASTER CLEAR INTERFACE 
UP LINE NUMBER 



MOV «13.80HSCR 
MOV «33503.8DHLPR 



1*: MOV 
MOV 
MOV 

2$ ! TSTB 
BPL 
MOV 
CMP 
BEQ 
HLT 
EMT 

3« : SCOPEl 
INCB 
BNE 

4»: SCOPE 
LINE-LINE ♦! 
BITX-BITXtBITX 
SDATAl \LINE.\BITX 



«-l.SDHBC 
«TOATA , S0H3A 
MOOO.SOHBAR 
SX)HSCR 
2» 

S0HNRC.R4 
R4.TDATA 
3) 
0 
0 

TOATA 
1» 



: 3 



: TRANSMIT ALL CHARACTERS ONE 
: CHARACTER LENGTH IS 8 BITS. 
iLINE SPEED IS 9600 BAUD. 



TS SXN.10.4$.1» 
T15: MOV 

MOV 

MOV 
.IF NB <1»> 

MOV 

.ENOC 
XN-XNa 

MOV 
MOV 
MOV 



•340, PS 
♦lO.ICOUNT 
♦4*. ESCAPE 

#1$.FREEZ1 



«BITU.SDHSCR 
*14.R3 tSET 
«14*400« 100000 . TOATA 



003700 012777 000014 012350 



MOV 



«14.80HSCR 



SET EXPECTED LINE NUMBER 

AND VALID DATA FLAG 

EXPECTED DATA 

SELECT LINE 13 
t SELECT 8 BITS CHARATER 
(LENGTH. 9600 BAUD SPEED 
sFOR LINE 13 
{TRANSMIT 1 CHARACTER 
; ADDRESS OF TRANSMIT DATA 
{START TRANSMITTER 
{UAIT FOR CHARACTER 
{TO BE RECEIVED 
(GET RECEIVED CHARACTER 
{COMPARE EXPECTED AND 
{RECEIVED DATA 
{DATA ERROR 

{CHECK FOR LOOP WITH CURRENT DATA 
{UPDATE TRANSMIT DATA 

{CHECK FOR ITERATIONS. LOOP 



AT A TIME ON LINE 14. 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 10 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 
UP LINE NUMBER 

{SET EXPECTED LINE NUMBER 
{AND VALID DATA FLAG 
{EXPECTED DATA 
(SELECT LINE 14 



t 3 
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003706 


012777 


033503 


012346 




MOV 


«33503,8DHLPR 


003714 


012777 


177777 


012344 


1$: 


MOV 


«-l,90HBC 


003722 


012777 


016356 


012334 




MOV 


«TDATA,8DHBA 


003730 


012777 


010000 


012332 




MOV 


010000, SDHBAR 


003736 


105777 


012314 




2$: 


TSTB 


9DHSCR 


003742 


100375 








BPL 


2$ 


003744 


017704 


012310 






MOV 


SDHNRC.R4 


003750 


020467 


012402 






CMP 


R4.TDATA 


003754 


001401 








BEQ 


3» 


003756 










HLT 


0 


003756 


104000 








EMT 


0 


003760 


104410 






3$: 


SCOPEl 




003762 


105267 


012370 






INCB 


TOATA 


003766 


001352 








BNE 


1$ 


003770 


104400 






4$: 


SCOPE 






000015 






LINE 


«LINE»1 






020000 






BITX 


-BITXtBITX 





003772 



SOATAl \LINE.\BITX 



! TRANSMIT ALL CHARACTERS ONE 
s CHARACTER LENGTH IS B BITS. 
sLINE SPEED IS 9600 BAUD. 



003772 








TS \XN.10.4$.1$ 




OOO t Id, 


012 /o f 


UOOoHU 


1 / O r /O 


T1 A. 


riU V 


ATAA DC 




UX£ (Of 


WW XV 






MOV 


A1A TrfWJNT 
wxv ■ xvwvn * 


004006 


012767 


004132 


012304 




MOV 


♦4$. ESCAPE 










.IF NB 


<1J> 




004014 


012767 


004056 


012300 




MOV 


«l$.rREEZl 










.ENOC 








000017 






XN-XNa 






004022 


012777 


004000 


012226 




nov 


«eiTll,SDHSCR 


004030 


012703 


000015 






nov 


*15.R5 


004034 


012767 


106400 


012314 




MOV 


«15*400*10000( 


D04042 


012777 


000015 


012206 




nov 


«lS.aDHSCR 


004050 


012777 


033503 


012204 




MOV 


*33S03.8DHLPR 


004056 


012777 


177777 


012202 


1»: 


MOV 


*-1.80HBC 


004064 


012777 


016356 


012172 




MOV 


«TDATA,8DHBA 


004072 


012777 


020000 


012170 




MOV 


«20000.SDHBAR 


004100 


105777 


012152 




2): 


TSTB 


80HSCR 


004104 


100375 








BPL 


2) 


004106 


017704 


012146 






MOV 


aOHNRC.R4 


004112 


020467 


012240 






CMP 


R4. TOATA 


004116 


001401 








BEQ 


3$ 


004120 










HLT 


0 


004120 


104000 








EMT 


0 


004122 


104410 






3$. 


SCOPEl 




004124 


io:;267 


012226 






INCB 


TDATA 


004130 


001352 








BNE 


1» 


004132 


104400 






4$: 


SCOPE 





{SET 



SEQ 33 



; SELECT 8 BITS CHARATER 
i LENGTH. 9600 BAUD SPEED 
:F0R LINE 14 
; TRANSMIT 1 CHARACTER 
{ADDRESS OF TRANSMIT DATA 
; START TRANSMITTER 
;WAIT FOR CHARACTER 
:T0 BE RECEIVED 
jGET RECEIVED CHARACTER 
! COMPARE EXPECTED AND 
! RECEIVED DATA 
sDATA ERROR 

(CHECK FOR LOOP UITH CURRENT DATA 
(UPDATE TRANSMIT DATA 

; CHECK FOR ITERATIONS, LOOP 



A TIME ON LINE 15. 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 10 ITERATICWS 
(SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA : 3 



(MASTER CLEAR INTERFACE 
LINE NUMBER 

iSET EXPECTED LINE NUMBER 
:ANO VALID DATA FLAG 
J EXPECTED DATA 
J SELECT LINE 15 
I SELECT 8 BITS CHARATER 
s LENGTH. 9600 BAUD SPEED 
;F0R LINE 15 
{TRANSMIT 1 CHARACTER 
.-ADDRESS OF TRANSMIT DATA 
s START TRANSMITTER 
iWAIT FOR CHARACTER 
:T0 BE RECEIVED 
(GET RECEIVED CHARACTER 
(COMPARE EXPECTED AND 
(RECEIVED DATA 
(DATA ERROR 

(CHECK FOR LOOP UITH CURRENT DATA 
(UPDATE TRANSMIT DATA 

(CHECK FOR ITERATIONS. LOOP 
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SEQ 34 



000016 
O'OOOO 



004134 



004134 



LINE-LINE*1 
BITX-BITX*BITX 
SOATAl \LINE.\BITX 



TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 16, 
CHARACTER LENGTH IS 8 BITS. 
LINE SPEED IS 9600 BAUD. 



TS \XN.10.4$.1$ 



004134 


012767 


000340 


173634 


T17: 


MOV 


*340.PS -.DISABLE ALL INTERRUPTS 


004142 


012767 


000010 


012154 




MOV 


♦lO.ICOUNT ;SET UP FOR 10 ITERATIONS 


004150 


012767 


004274 


012142 




MOV 


♦4$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 










.IF NB 


<1$> 






004156 


012767 


004220 


012136 




MOV 


«1$.FREEZ1 sSET UP TO LOOP WITH DATA 










.ENDC 










000020 






XN"XN»1 








004164 


012777 


004000 


012064 




MOV 


♦BITll.aDHSCR sMASTER CLEAR INTERFACE 


004172 


012703 


000016 






MOV 


«16.R3 sSET UP LINE NUMBER 


004176 


012767 


107000 


012152 




MOV 


«16*400« 100000 , TDATA 


SET EXPECTED LINE NUMBER 
AND VALID DATA FLAG 
EXPECTED DATA 


004204 


012777 


000016 


012044 




MOV 


«16.aOHSCR 


SELECT LINE 16 


0C4212 


012777 


033503 


M a MM M M 

012042 




MOV 


«33503.0DHLPR 


SELECT 8 BITS CHARATER 
LENGTH. 9600 BAUD SPEED 
FOR LINE 16 


004220 


012777 


177777 


M » MM M M 

012040 


1$ : 


MOV 


«-l.SOHBC 


TRANSMIT 1 CHARACTER 


M M A M M ^ 

004226 


012777 


016356 


M t MM 9M 

012030 




MOV 


«T0ATA,80HBA 


ADDRESS OF TRANSMIT DATA 


004234 


012777 


M M i^M M M 

040000 


012026 




MOV 


«40000.SDHBAR 


START TRANSMITTER 


0042 *»^ 


1 ACT*?"? 
103 III 


UleUlU 




2«: 


TSTB 


80HSCR 


WAIT FOR CHARACTER 


004246 


100375 








BPL 


2* 


TO BE RECEIVED 


004250 


017704 


012004 






MOV 


80HNRC.R4 


[GET RECEIVED CHARACTER 


004254 


020467 


012076 






CMP 


R4, TDATA 


[COMPARE EXPECTED AND 


004260 


001401 








BEQ 


3$ 


.RECEIVED DATA 


004262 










HLT 


0 


iDATA ^RROR 


004262 


104000 








EMT 


0 




004264 


104410 






3$: 


SCOPEl 


: CHECK FOR LOOP WITH CURRENT DATA 


004266 


105267 


0120o4 






INCB 


TDATA 


! UPDATE TRANSMIT DATA 


004272 


001352 








8NE 


1) 




004274 


104400 






4$; 


SCOPE 


{CHECK FOR ITERATIONS. LOOP 




000017 






LINE -LINE* 1 








100000 






BITX"BITX»BITX 






004276 








SOATAl 


\LINE.\BITX 





{TRANSMIT ALL CHARACTERS QVE AT A TIME ON LINE 17. 
: CHARACTER LENGTH IS 8 BITS. 
iLINE SPEED IS 9600 BAUD. 



004276 
004276 
004304 
004312 



012767 
012767 
012767 



004320 012767 



004326 



000021 
012777 



000340 
000010 
004436 

004362 
004000 



173472 
012012 
012000 

011774 



011722 



TS \XN.10.4*.1» 

T20: MOV #340, PS 

MOV #10.IC0UNT 

MOV #4*. ESCAPE 

.IF VR, <1$> 

MOV *1I,FREEZ1 

.ENDC 
XN<XN*1 

MOV «BIT11,9DHSCR 



; DISABLE ALL INTERRUPTS 
4 SET UP FOR 10 ITERATIONS 
jSET UP TO ESCAPE TO NEXT TEST 

;SET UP TO LOOP UITH DATA 
i MASTER CLEAR INTERFACE 



J 3 
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004334 012703 000017 
004340 012767 107400 



004346 012777 000017 
004354 012777 033503 



004362 
004370 
004376 
004404 
004410 
004412 
004416 
004422 
004424 
004424 
004426 
004430 
004434 
004436 



17 
18 
19 
20 
22 
23 
24 
25 
26 
27 
28 



012777 
012777 
012777 
105777 
100375 
017704 
020467 
001401 

104000 
104410 
105267 
001352 
104400 
000020 
000000 
000000 
000000 
000001 
000001 
000020 



17/777 
016356 
100000 
011646 

011642 
011734 



011722 



012010 



011702 
011700 



011676 
011666 
011664 



MOV 
MOV 



MOV 
MQV 



#17. R3 J SET UP LINE NUMBER 

♦17*400* 100000 . TDATA 



n7,aDHSCR 
«33503.SDHLPR 



004440 



1$: MOV 

MOV 
MOV 

2$: TSTB 
BPL 
MOV 
CMP 
BEQ 
HLT 
EMT 

lit SCOPEl 
INCB 
BNE 

4»: SCOPE 

LINE«LINE*1 

BITX»BITX*BITX 

LINE»0 

XLINE-LINE 

BITX-1 

XBIT-BITX 

.REPT 20 

S0ATA2 \LINE,\BITX 

.NLIST 

LINE»LINE^1 

BITX-BITX*BITX 

.LIST 

.EW}R 

S0ATA2 \LINE.\BITX 



«-l,SDHBC 
«TDATA.SDHBA 
nOOOOO.SOHBAR 
SOHSCR 
2« 

S0HNRC.R4 
R4.T0ATA 
3» 
0 
0 

TDATA 
U 



SET EXPECTED LINE NUMBE9 

AND VALID DATA FLAG 

EXPECTED DATA 

SELECT LINE 17 

SELECT 8 BITS CHARATER 

LENGTH, 9600 BAUD SPEED 

FOR LINE 17 

TRANSMIT 1 CHARACTER 

ADDRESS OF TRANSMIT DATA 

START TRANSMITTER 

WAIT FOR CHARACTER 

TO BE RECEIVED 

GET RECEIVED CHARACTER 

COMPARE EXPECTED AND 

RECEIVED DATA 

DATA ERROR 

! CHECK FOR LOOP WITH CURRENT DATA 
jUPDATE TRANSMIT DATA 

; CHECK FOR ITERATIWS. LOOP 



i SINGLE LINE DATA TEST 

: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 0 
:CHARATER LENGTH IS 8 BITS 

;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
:T0 9600 BAUD. 

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
:AT EACH SPEED 



004440 
004440 
004446 
004454 



012767 000340 173330 T21: 



TS \XN.1.4».l$ 



012767 000001 011650 
012767 004634 011636 



004462 012767 004524 011632 
000022 

004470 012777 004000 011560 

004476 012702 OCOOOl 

004502 012705 000000 



MOV 



MOV 
MOV 

.IF NB <1»> 
MOV 

.ENDC 
XN*XN»1 

MOV 
MOV 
MOV 



#340, PS 
»1.IC0UNT 
«4». ESCAPE 

«1».FREEZ1 



♦BITll.aOHSCR 

*1.R2 

«C.R5 



: DISABLE ALL INTERRUPTS 

jSET UP FOR 1 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



; MASTER CLEAR INTERFACE 
1 FIRST SPEED CODE 
(LINE 0 WILL BE TESTED 
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SEQ 36 



004506 


012767 


100000 


011644 




MOV 


«0*400*100000.RDATA 


SET EXPECTED LINE NUMBER 
AND VALID DATA FLAG 
EXPECTED DATA 


004514 


012700 


000015 






MOV 


«15.R0 


13 SPEEDS WILL BE TESTED 


004520 


012701 


002103 






MOV 


«2103,R1 


FIRST SPEED -50 BAUD. 
8 BITS PER CHARACTER 


004524 


010577 


011526 




1$: 


MOV 


R5.80HSCR 


SELECT LINE 0 


004530 


010177 


011526 






MOV 


Rl , 80HLPR 


SET LINE SPEED AND 
CHARACTER LENGTH 


004534 


012777 


016364 


011522 




MOV 


«TBUF,80HBA 


ADDRESS OF TRANSMITTER 
DATA BUFFER 


004542 


012777 


177400 


011516 




MOV 


#-400.8DHBC 


400 (OCTAL) BYTES 
WILL BE TRANSMITTED 


004550 


012777 


000001 


011512 




MOV 


»1.9DHBAR 


START TRANSMITTER 


004556 


105777 


011474 




2$: 


TSTB 


SDHSCR 


iUAIT FOR DATA TO BE RECEIVED 


004562 


100375 








BPL 


2$ 


004564 


017703 


011470 






MOV 


80HNRC.R3 


iGET RECEIVED DATA 


004570 


020367 


011564 






CMP 


R3,RDATA 


;COMPER EXPECTED AND RECEIVED DATA 


004574 


001407 








BEQ 


3$ 




004576 


005077 


011466 






CLR 


90HBAR 


[STOP TRANSMITTER 


004602 










HLT 


1 


iOATA ERROR 


004602 


104001 








EMT 


1 




004604 


104410 








SCOPEl 


sChCCK FOR LOOP AT CURRENT SPEED 


OC4606 


012777 


000001 


011454 




MOV 


n.SOHBAR 


sRESTART TRANSMITTER 


004614 


105267 


011540 




3»: 


INCB 


ROATA 


(UPOATA EXPECTED DATA 


004620 


001356 








BNE 


2* 




004622 


062701 


002100 






ADO 


«2100.R1 


! UPDATE LINE SPEED 


004626 


005202 








INC 


R2 


{UPDATE SPEED CODE 


004630 


005300 








DEC 


RO 




004632 


001334 








BNE 


1$ 




004634 


1044C0 
000001 
000002 






4$: 

LINE 

BITX 


SCOPE 
-LINE* I 
-BITX«81TX 






004636 








S0ATA2 \LINE.\BITX 





SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 1 
CHARATER LENGTH IS 8 BITS 

LINE SPEED WILL START AT SO BAUD AND BE INCRENENTED 
TO 9600 BAUD. 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
AT EACH SPEED 



004636 
004636 
004644 
004652 



004666 
004674 
004700 
004704 



012767 
012767 
012767 



000340 
000001 
005032 



000023 
012777 
012702 
012705 
012767 



004000 
000001 
000001 
K0400 



173132 
011452 
011440 



TS \XN.1,4$.1» 



004660 012767 004722 011434 



011362 



011446 



T22: 



.IF NB 

.ENOC 
XN>XN*1 



MOV 

MOV 

MOV 

<1»> 

MOV 



MOV 
NOV 
MOV 
MOV 



#340. PS 
«1. I COUNT 
♦4 ». ESCAPE 

nt.FREEZl 



«BIT 11. SDHSCR 
«1.R2 

«1,R5 jLINE 
«1*400«100000.RDATA 



I DISABLE ALL INTERRUPTS 
;SET UP FOR 1 ITERATIONS 
;SET UP TO ESCAPE TO NEXT 

;S£T UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 
: FIRST SPEED CODE 
WILL BE TESTED 

(SET EXPECTED LINE NUMBER 



TEST 
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SEQ 37 



0047 IP 


01 ?700 


00001^ 






HDU 

1 Iw V 


V± D § ny' 


;<o jrccUo WILL Be. IcoTcD 


004716 


012701 


002103 






MOV 


«2103.R1 


:FIRST SPEED -50 BAUD, 

• A RTTC DCD njADAf*TCO 




0^ ft*; 77 


Ol ' 7'<0 




1 i • 

X V • 


nu V 








01 01 77 


01 1 






nu V 


D1 flOMI PR 


:SET LINE SPEED AND 
sLHAKAWlcR LcNoTH 


004732 


01 3777 


01 

VA www"* 


01 1 




MOV 




:DATA BUFFER 




01 3777 


1 77flOO 


Ol 1 '^30 




MDU 




S4UU (.ULInLy DTItS 

iLITI 1 TOAMCMTTTCn 
t HXLL DC 1 KnnSirU 1 1 cU 




01 P777 


00OO09 


01 1314 




■ IW V 


aOHRAR 


•CTART TOAMCMTTTCD 


004754 


105777 


011276 

VX XC ' w 






TSTB 

I W ■ W 




•UATT POD RATA in OP BPrCTWPn 


004760 


100375 








BPL 


2$ 


00476? 


017703 


01 1272 






MOV 


aOHNRC R3 


•RPT RrrFTuPn hata 


004766 

W~ » WW 


020367 


011366 

VX Xwww 






CMP 


R3 RDATA 


•rOHPFB PyppPTPn amh oPrPTwpn n>T> 


004772 


001407 








WW m 


31 


004774 


005077 

W JW 1 9 


011270 






CLR 


aOHBAR 




005000 










HLT 




•OAT A FRRQP 


OOSOOO 


104001 








EMT 


1 

X 




005002 


104410 








SCOPEl 






005004 


012777 


000002 


011256 




MOV 


«2,80HBAR 


jRESTART TRANSMITTER 


0C5012 


105267 


011342 




3«: 


INCB 


RDATA 


:UPOATA EXPECTED DATA 


005016 


001356 








BNE 


2) 




005020 


062701 


002100 






ADD 


«2100.R1 


s UPDATE LINE SPEED 


005024 


005202 








INC 


R2 


i UPDATE ^EED CODE 


005026 


005300 








DEC 


RO 




005030 


001334 








BNE 


1* 




005032 


104400 
000002 
000004 






4$: 

LINE 

BITX 


SCOPE 
-LINE»1 
-BITX*BITX 







AND VALID DATA FLAG 
EXPECTED DATA 



005034 



S0ATA2 \LINE.\BITX 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 2 
CHARATER LENGTH IS 8 BITS 

LINE SPEED WILL START AT SO BAUD AND BE INCREMENTED 
TO %00 BAUD. 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
;AT EACH SPEED 



005034 
005034 
005042 
005050 



012767 
012767 
012767 



000340 
000001 



172734 
011254 



005230 011242 



005056 012767 005120 011236 



005064 

005072 
005076 
005102 



000024 
012777 
012702 
012705 
012767 



004000 CI 1164 

000001 

000002 

101000 011250 



TS \XN,1.4»,1$ 
T23: MOV 
MOV 
MOV 
.IF NB <1»> 
MOV 

.ENOC 
XN«XN*1 

MOV 
MOV 
MOV 
MOV 



♦340. PS 
♦l.ICOUNT 
M». ESCAPE 

«1»,FREEZ1 



«BIT11.9DHSCR 
«1.R2 

«2.RS :LTNE 
«2 0400*100000. RDATA 



iOISABLE ALL INTERRl^TS 

:SET UP FOR 1 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 
{FIRST SPEED CODE 
WILL BE TESTED 

I SET EXPECTED LINE NUMBER 
:AND VALID DATA FLAG 
lEXPECTEO DATA 
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SEQ 38 



005110 


012700 


000015 






MOV 


#15, RO 


13 SPEEDS WILL BE TESTED 


005114 


012701 


002103 






MOV 


«2103,R1 


FIRST SPEED -50 BAUD, 
8 BITS PER CHARACTtR 


005120 


010577 


011132 




It: 


MOV 


RS.SOHSCR 


SELECT LINE 2 


005124 


010177 


A t t t T O 

011132 






HOv 


Dt nALji no 

Rl .SPHLPR 


SET LINE SPEED AND 
CHARALTcR LENGTH 


005130 


012777 


At £.^CA 

0163o4 


A t t 4 

011126 




MOV 


tfTBUF.SOHBA 


ADDRESS OF TRANSMITTER 
DATA BUFFER 


005136 


012777 


1 # 7400 


A 4 t t 11 

011122 




UAiJ 

nov 


«-400.80HBC 


400 (OCTAL) BYTES 
WILL BE TRANSMITTED 


AACI MA 


012777 


000004 


A 4 4 t 1 £ 
011116 




nUV 


«4.9DHBAR 


START TRANSMITTER 


005152 


4 ACT 

105777 


At • t AA 

011100 




29 : 


TSTd 


80HSCR iWAIT FOR DATA TO BE RECEIVED 


OOSISo 


100375 








QDI 

BrL 


2) 




AAC4 

OOSloO 


A1 ^?AT 

017703 


A4 4 A^A 
011074 






MAW 

nuv 


S0HNRC.R3 


,GET RECEIVED DATA 


005164 


020367 


A4 4 4 7A 
Olll fO 






Lnr 


RS.RDATA 


iCOMPER EXPECTED AND RECEIVED DATA 


0051 70 


AA4 AA*T 

001407 








DtU 


3» 




005172 


AACA?? 

005077 


A4 4 A?^ 
011072 






(.LR 


SDHBAR 


iSTOP TRANSMITTER 


005176 










Ul T 
ML 1 


1 


iDATA ERROR 


005176 


4 AA AA4 
104001 








CMT 

cn 1 


1 




OOSeOO 


4 /\AA 4 A 
.\04410 










iCHECK FOR LOOP AT CURRENT SPEED 


AAC^A^ 

005202 


A4 'iT7*> 

012777 


AAAAAA 
000004 


A 1 4 AiL A 
011060 




MA VI 

nuv 


«4,eDHBAR 


■RESTART TRANSMITTER 


AAC9 4 A 

005210 


105267 


A4 4 4 iljl 

011144 




: 


INCB 


ROATA 


;UPDATA EXPECTED DATA 


0C5214 


001356 








BNE 


2t 




0C5216 


062701 


002100 






ADO 


«2100.R1 


t UPDATE LINE SPEED 














R2 


tUPOATE SPEED CODE 


005224 


005300 








DEC 


RO 




005226 


001334 








BNE 


It 




005230 


104400 
000003 
000010 






41: 

LINE 
BITX 


SCOPE 
•LINEtl 
-BITX*BITX 







005232 



S0ATA2 \LINE.\BITX 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 3 
CHARATER LENGTH IS 9 BITS 

LINE SPEED WILL START AT SO BAUD AND BE INCREMENTED 
TO 9600 BAUD. 

A BLOCK OF 400 CHARACTER^ UILL BE TRANSMITTED 
AT EACH SPEED 



005232 
005232 
005240 
005246 



005262 
005270 
005274 
005300 



005306 
005312 



012767 
012767 
012767 



000340 
000001 
005426 



172536 
011056 
011044 



TS \XN. 
T24: 



005254 012767 005316 011040 



000025 
012777 
012702 
012705 
012767 



012700 
012701 



004000 
000001 
000003 
101400 



000015 
002103 



010766 
011052 



.IF HB 

-ENOC 
XN-XNtl 



1.4*. 1* 
MOV 
MOV 
MOV 
<1»> 
MOV 



MOV 
MOV 
MOV 
MOV 



MOV 
MOV 



♦340. PS 
♦l.ICOUNT 
♦4*. ESCAPE 

♦ll.FREEZl 



«BITU.6DHSCR 
*1.R2 

«3.R5 (LINE 
•3*400*100000. RDATA 



«15.R0 
«2103.R1 



{DISABLE ALL INTERRIN>TS 

I SET UP FOR 1 ITERATIONS 

}SET UP TO ESCAPE TO f«XT TEST 

{SET UP TO LOOP MITH DATA 



{MASTER CLEAR INTERFACE 
(FIRST SPEED CODE 
UILL BE TESTED 

{SET EXPECTED LINE NUMBER 
{AND VALID DATA FLAG 
{EXPECTED DATA 
:13 SPEEDS UILL BE TESTED 
{FIRST SPEED -50 BAUD. 



SEQ 39 
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8 BITS PER CHARACTER 


005316 


010577 


010734 




U : 


MOV 


R5.BDHSCR 


SELECT LINE 3 


005322 


010177 


010734 






MOV 


Rl.SDHLPR 


SET LINE SPEED AND 














(CHARACTER LENGTH 


005326 


012777 


016364 


010730 




MOV 


•TBUF.8DHBA {ADDRESS OF TRANSMITTER 
















DATA BUFFER 


005334 


012777 


177400 


010724 




MOV 


*-400,S0HBC 


i400 (OCTAL) BYTES 
















iUILL BE TRANSMITTED 


005342 


012777 


000010 


010720 




MOV 


«10.«}HbAR 


! START TRANSMITTER 


005350 


105777 


010702 




2): 


TSTB 


SOHSCR 


iUAIT FOR DATA TC BE RECEIVED 


005354 


100375 








BPL 


2* 




005356 


017703 


010676 






MOV 


«}HNRC,R3 


;GET RECEIVED DATA 


005362 


020367 


010772 






CMP 


R3.RDATA 


iCOMPER EXPECTED AND RECEIVED DATA 


005366 


001407 








BEQ 


31 




005370 


005077 


010674 






CLR 


80HBAR 


iSTOP TRANSMITTER 


005374 










HLT 


1 


sDATA ERROR 


005374 


104001 








EMT 


1 




005376 


104410 








SCOPEl 




} CHECK FOR LOOP AT CURRENT SPEED 


005400 


012777 


000010 


010662 




MOV 


«10.«)HBAR 


;Kt5TBKT TKMN5MITTER 


005406 


105267 


010746 




3): 


INCd 


RDATA 


;UPDATA EXPECTED DATA 


005412 


001356 








BNE 


21 




005414 


062701 


002100 






ADD 


«2100,R1 


iUPDATE LINE SPEED 


005420 


005202 








INC 


R2 


s UPDATE SPEED CODE 


005422 


005300 








DEC 


RO 




005424 


001334 








BNE 


It 




005426 


104400 






4>: 


SCOPE 








000004 






LI^€>LINE*1 








000020 






BITX-BITX*BITX 






005430 








S0ATA2 


\LINE.\BITX 














t SINGLE 


LINE DATA TEST 














:TRANSHIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 4 












iCHARATER LENGTH IS 6 BITS 














iLINE SPEED UILL START AT SO BAUD AND BE INCREHENTEO 












:T0 9600 BAUD. 














iA BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 












iAT EACH SPEED 




005430 








TS \XN.1,4*,1» 






005430 


012767 


000340 


172340 


T25: 


MOV 


•340. PS 


iDISABLE ALL INTERRUPTS 


005436 


012767 


000001 


010660 




MOV 


«1.IC0UNT 


J SET UP FOR 1 ITERATIONS 


005444 


012767 


005624 


010646 




MOV 


•4*. ESCAPE 


;SET UP TO ESCAPE TO NEXT TEST 










.IF NB 


<1»> 






005452 


012767 


005514 


010642 




MOV 


«l*.FREEZi 


(SET UP TO LOOP WITH DATA 










.ENOC 










000026 






XN-XN*1 








005460 


012777 


004000 


010570 




MOV 


«6IT11. SOHSCR 


s MASTER CLEAR INTERFACE 


005466 


012702 


000001 






MOV 


•1,R2 


; FIRST SPEED CODE 


005472 


012705 


000004 






MOV 


•4.RS sLINE 4 


UILL BE TESTED 


005476 


012767 


102000 


010654 




MOV 


•4*400 « 100000. RDATA 


















iSET EXPECTED LINE NUMBER 
















lANO VALID DATA FLAG 
















(EXPECTED DATA 


005504 


012700 


000015 






MOV 


•15. RO 


:13 SPEEDS UILL BE TESTED 


005510 


012701 


002103 






MOV 


•2103.R1 


(FIRST SPEED -SO BAUD. 
















(8 BITS PER CHARACTER 


005514 


010577 


010536 




1): 


MOV 


R5. SOHSCR 


(SELECT LINE 4 
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SEQ 40 



005520 


010177 


010536 






MOV 


Rl.aOHLPR 


SET LINE SPEED AND 
CHARACTER LENGTH 


005524 


012777 


016364 


010532 




nov 


«TBUF.80HBA 


ADDRESS OF TRANSMITTER 
DATA BUFFER 


005532 


012777 


177400 


010526 




nov 


•-400.80HBC 


400 (OCTAL) BYTES 
WILL BE TRANSMITTED 


005540 


012777 


000020 


010522 




MOV 


»20,80HBAR 


START TRANSMITTER 


005546 


105777 


010504 




2$: 


TSTB 


80HSCR sUAIT FOR DATA TO BE RECEIVED 


005552 


100375 








BPL 


2$ 




005554 


017703 


010500 






MOV 


9DHNRC.R3 


.GET RECEIVED DATA 


005560 


020367 


010574 






CMP 


R3.RDATA 


[COMPER EXPECTED AND RECEIVED DATA 


005564 


0014C7 








BEQ 


3) 




005566 


005077 


010476 






CLR 


90HBAR 


iSTOP TRANSMITTER 


005572 










HLT 


I 


,DATA ERROR 


005572 


104001 








EMT 


1 




005574 


104410 








SCOPEl 


; CHECK FOR LOOP AT CURRENT SPEED 


005576 


012777 


000020 


010464 




MOV 


«20.8DHBAR 


[RESTART TRANSMITTER 


005604 


105267 


010550 




3$: 


INCB 


RDATA 


sUPDATA EXPECTED DATA 


005610 


001356 








BNE 


2$ 




005612 


062701 


002100 






ADD 


«2100,R1 


J UPDATE LINE SPEED 


005616 


005202 








INC 


R2 


s UPDATE SPEED CODE 


005620 


005300 








DEC 


RO 




005622 


001334 








BNE 


1% 




0C5624 


104400 
000005 
O00C40 






4$: 

LINE 
BITX 


SCOPE 
•LINE»1 
•BITX*BITX 







005626 



S0ATA2 \LINE.\BITX 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE ! 
CHARATER LENGTH IS 8 BITS 

LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
TO 9600 BAUD. 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
AT EACH SPEED 



005626 
005626 
005634 
005642 



005656 
005664 
005670 
0C5674 



005702 
005706 

005712 
005716 



012767 
012767 
012767 



000340 
000001 
006022 



000027 
012777 
012702 
012705 
012767 



012700 
012701 

010577 
010177 



00400C 
000001 
000005 
102400 



000015 
002103 

010340 
010340 



172142 
010462 
010450 



005650 012767 005712 010444 



010372 



010456 



TS \XN,l,4t.l» 
T26: MOV 
MOV 
MOV 
.IF NB <1$> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 



MOV 
MOV 



It: 



MOV 
MOV 



#340. PS 
«1.IC0UNT 
44 f, ESCAPE 

«lt.FREEZl 



4BIT11.80HSCR 
«1.R2 

♦5.R5 sLINE 
«5*400* 100000. RDATA 



«15.R0 
•2103.R1 

R5,80HSCR 
Rl.aOHLPR 



i DISABLE ALL INTERRUPTS 

sSET UP FOR 1 ITERATIONS 

;SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



sMASTER CLEAR INTERFACE 
: FIRST SPEED CODE 
5 WILL BE TESTED 



{SET EXPECTED LINE NUMBER 
)ANO VALID DATA FLAG 
sEXPECTEO DATA 
!l3 SPEEDS MILL BE TESTED 
(FIRST SPEED -50 BAI'D. 
8 BITS PER CHARACTER 
SELECT LINE 5 
SET LINE SPEED AND 
{CHARACTER LENGTH 
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SEQ 41 



005722 


012777 


016364 


010334 




HOV 


«TBUF,SOHBA 


i ADDRESS OF TRANSMITTER 
:OATA BUFFER 


0057S0 


012777 


177400 


010330 




HOV 


»-400.SDHBC 


j400 (OCTAL) 3YTES 
jUILL BE TRANSMITTED 


005"' 36 


012777 


000040 


010324 




MOV 


«40.S0HBAR 


s START TRANSMITTER 


005744 


105777 


010306 




2*: 


TSTB 


80HSCR 


iUAIT FOR DATA TO BE RECEIVED 


005750 


100575 








BPL 


2» 




005752 


017703 


010302 






MOV 


8DHNRC.R3 


:GET RECEIVED OA A 


005-'56 


020367 


010376 






CMP 


R3,R0ATA 


;COMPER EXPECTED AND RECEIVED DATA 


005762 


001407 








BEQ 


3$ 


005764 


005077 


010300 






CLR 


90 HEAR 


:STOP TRANSMITTER 


005770 










HLT 


1 


:DATA ERROR 


005770 


104001 








EMT 


1 




005772 


104410 








SCOPE 1 




: CHECK FOR LOOP AT CURRENT SPEED 


005774 


012777 


000040 


010266 




MOV 


«40.80H8AR 


J RESTART TRANSMITTER 


006002 


105267 


010352 




3$: 


INC6 


ROATA 


sUPDATA EXPECTED DATA 


006006 


001356 








BNE 


2$ 




006010 


062701 


002100 






ADD 


«2100,R1 \ 


{UPDATE LINE SPEED 


006014 


005202 








INC 


R2 


J UPDATE SPEED CODE 


006016 


005300 








DEC 


RO 




00602C 


001334 








BNE 


11 




006022 


104400 
000006 
000100 






4$: 

LINE 
BITX 


SCOPE 
-LINE»1 
«BITX*BITX 







0C6024 



SDATA2 \LINE.\BITX 



SINGLE LH« DATA TEST 

TRANSMIT A BLOCK 400 (OCTAL) CHARACTERS ON LINE 6 
CHARATER LENGTH IS 8 BITS 

LINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
TO 9600 BAUD. 

A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
AT EACH SPEED 



006024 
006024 
006032 
006040 



006054 

006062 
006066 
006072 



006100 
006104 

0061 10 
006114 



012767 
012767 
012767 



000340 
000001 
006220 



000030 
012777 
012702 
012705 
012767 



004000 
000001 
000006 
103000 



012700 000015 

012701 002103 

010577 010142 

010177 010142 



171744 
010264 
010252 



006046 012767 006110 010246 



010174 



010260 



TS \XN,1.4».1» 
T27: MOV 
MOV 
MOV 
.IF NB <1»> 
MOV 

.ENOC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 



It: 



006120 J12777 016364 010136 



MOV 
MOV 

MOV 
MOV 

MOV 



*340.PS 
♦l.ICOUNT 
«4 I, ESCAPE 

♦It.FREEZl 



«BITll.aOHSCR 

M.R2 

#6 R5 

«6*400* 100000 



*1S.R0 
«2103.R1 

R5.8DHSCR 
R1.9DHLPR 

«TBUF.S0HBA 



{LINE 
.ROATA 



: DISABLE ALL INTERRUPTS 

:SET UP FOR 1 ITERATIONS 

;SET OP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA 



s MASTER CLEAR INTERFACE 
;FIRST SPEED CODE 
UILL BE TESTED 



(SET EXPECTED LINE NUMBER 
AND VALID DATA FLAG 
EXPECTED DATA 
13 SPEEDS UILL BE TESTED 
FIRST SPEED "50 BAUD. 
8 BITS PER CHARACTER 
SELECT LINE 6 
SET LINE SPEED AND 
CHARACTER LENGTH 
ADDRESS OF TRANSMITTER 

:OATA BUFFER 
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SEQ 42 



03612* 


012777 


177400 


010132 




HOV 


« 400.90HBC 


006134 


012777 


000100 


010126 




MOV 


«100.S0HBAR 


006142 


105777 


010110 




2): 


TSTB 


aOHSCR 


006146 


100375 








BPL 


2» 


006150 


01 ■'703 


010104 






MOV 


J0HNRC.R3 


006154 


020367 


010200 






CMP 


R3.R0ATA 


006160 


001407 








BEQ 


3» 


006162 


005077 


010102 






CLR 


80HBAR 


006166 










HLT 


1 


006166 


104001 








EMT 


1 


006170 


104410 








SCOPEl 




006172 


012777 


000100 


010070 




MOV 


«100.aDHBAR 


006200 


105267 


010154 




3): 


INCB 


RDATA 


006204 


001356 








BNE 


2$ 


006206 


062701 


002100 






ADO 


«2100,R1 


006212 


005202 








INC 


R2 


006214 


W 

005300 








DEC 


RO 


006216 


001334 








BNE 


1) 


006220 


104400 






4$: 


SCOPE 






000007 






LINE 


«LINE*1 






000200 






BITX 


-BITX.BITX 





i400 (OCTAL) BYTES 

;WILL BE TRANSMITTED 

; START TRANSMITTER 

sUAIT FOR DATA TO BE RECEIVED 

;GET RECEIVED DATA 

;COMPER EXPECTED AND RECEIVED DATA 

;STOP TRANSMITTER 
:OATA ERROR 

.CHECK FOR LOOP AT CURRENT SPEED 
; RESTART TRANSMITTER 
sUPDATA EXPECTED DATA 

s UPDATE LINE SPEED 
J UPDATE SPEED CODE 



0C622c 



SDATA2 \LINE,\BITX 



: SINGLE LINE DATA TEST 

;TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 7 
:CHARATER LENGTH IS 8 BITS 

:LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED 
:T0 %00 BAUD. 

:A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
:AT EACH SPEED 



006222 
006222 
006230 
006236 



012767 
012767 
012767 



000340 
000001 
006416 



171546 
010066 
010054 



006244 012767 006306 010050 



006252 
006260 
006264 
006270 



006276 
006302 

006306 
006312 

006316 

006324 



000031 
012777 
012702 
012705 
012767 



004000 
000001 
000007 
1C3400 



007776 



010062 



TS \XN.1.4».1» 
T30: MOV 
MOV 
MOV 
.IF NB <l»> 
MOV 

.ENDC 
XN-XN*1 

MOV 
MOV 
MOV 
MOV 



012700 000015 

012701 002103 

010577 007744 

010177 007744 

012777 016364 007740 

012777 177400 007734 



1*1 



MOV 
MOV 

MOV 
MOV 

MOV 

MOV 



#340. PS 
n.ICOUNT 
«4». ESCAPE 

♦1».FREEZ1 



«BIT11.SDHSCR 

*1.R2 

♦7.R5 

•7*400*100000 



n&.RO 
•2103. Rl 

R5.8DHSCR 
R1.90HLPR 

•TBUF.SOHBA 

•-400,8DHBC 



(LINE 
.RDATA 



! DISABLE ALL INTERRUPTS 

{SET UP FOR I ITERATIONS 

sSET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



; MASTER aEAR INTERFACE 
{FIRST SPEED CODE 
WILL BE TESTED 

{SET EXPECTED LINE NUMBER 

{AND VALID DATA FLAG 

{EXPECTED DATA 

{13 SPEEDS WILL BE TESTED 
FIRST SPEED -50 BAUD. 
8 BITS PER CHARACTER 
SELECT LINE 7 
SET LINE SPEED AND 
CHARACTER LENGTH 
ADDRESS OF TRANSMITTER 
DATA BUFFER 
400 (OCTAL) BYTES 
UILL BE TRANSMITTED 
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SEQ 43 



006332 


012777 


000200 


007730 




MOV 


«200.8DHBAR 


006340 


105777 


00/712 




2»: 


TSTB 


SDHSCR 


006344 


100375 








BPL 


2» 


006346 


017703 


007706 






MOV 


SDHNRC.R3 


006352 


C20367 


010002 






CMP 


M3,RDATA 


006356 


001407 








BEQ 


3$ 


006360 


005077 


007704 






CLR 


ODHBAR 


006364 










HLT 


1 


006364 


104001 








EMT 


1 


006366 


104410 








SCOPE! 




006370 


012777 


000200 


007672 




MOV 


«200.SDHBAR 


006376 


105267 


007756 




3$: 


INCB 


RDATA 


006402 


001356 








BNE 


2» 


006404 


062'fOl 


002100 






ADO 


«2100,R1 


006410 


005202 








INC 


R2 


0064 1l 


005300 








DEC 


RO 


006414 


001334 








BNE 


1$ 


006416 


104400 
000010 
000400 






4«: 

LINE 
BITX 


SCOPE 
•LINE*1 
•BITX»BITX 





.-START TRANSMITTER 

8 WAIT FOR DATA TO BE RECEIVED 

:GET RECEIVED DATA 

jCOMPER EXPECTED AND RECEIVED DATA 

;STOP TRANSMITTER 
:DATA ERROR 

J CHECK FOR LOOP AT CURRENT SPEED 
jRESTART TRANSMITTER 
:UPDATA EXPECTED DATA 

i UPDATE LINE SPEEU 
; UPDATE SPEED CODE 



006420 



S0ATA2 \LINE.\BITX 



; SINGLE LINE DATA TEST 

! TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTFRS ON LINE 10 
jCHARATER LENGTH IS 8 BITS 

sLINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
:TC 9600 BAUD. 

:A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
sAT EACH SPEED 



006420 



TS \XN.1.4*.1» 



006420 


012767 


000340 


171350 


T31: 


MOV 


«340.PS 


: DISABLE ALL INTERRUPTS 


006426 


012767 


000001 


007670 




MOV 


n.ICOUNT 


sSET UP FOR 1 ITERATIONS 


006434 


012767 


006614 


007656 




MOV 


«4$. ESCAPE 


sSET UP TO ESCAPE TO NEXT TEST 










.IF NB 


<1$> 




0C6442 


012767 


006504 


007652 




MOV 


«1I.FREEZ1 


:SET UP TO LOOP UITH DATA 










.ENDC 








000032 






XN«XN»1 








006450 


012777 


004000 


007600 




MOV 


4611 11. SDHSCR 


iMASTER CLEAR INTERFACE 


006456 


012702 


000001 






MOV 


«1.R2 


{FIRST SPEED CODE 


006462 


012705 


000010 






nov 


«10.R5 .-LINE 


10 UILL BE TESTED 


006466 


012767 


104000 


007664 




HOV 


«10*400t 100000 . RDATA 


sSET EXPECTED LINE NUMBER 
iAND VALID DATA FLAG 
1 EXPECTED DATA 


006474 


012700 


000015 






MOV 


«15.R0 


|13 SPEEDS UILL BE TESTED 


006500 


012701 


002103 






MOV 


«2103.R1 


{FIRST SPEED -50 BAUD. 
i8 BITS PER CHARACTER 


006504 


010577 


007546 




It: 


MOV 


R5. SDHSCR 


{SELECT LINE 10 


006510 


010177 


007546 






MOV 


R1.80HLPR 


tSET LINE SPEED AND 
{CHARACTER LENGTH 


006514 


012777 


016364 


007542 




MOV 


«TBUF.SOHBA 


{ADDRESS OF TRANSMITTER 
{DATA BUFFER 


006522 


012777 


177400 


007536 




MOV 


#-400.8DHBC 


{400 (OCTAL) BYTES 
:UILL BE TRANSMITTED 


006530 


012777 


000400 


007532 




MOV 


«400,SDHBAR 


{START TRANSMITTER 


006536 


105777 


007514 




2%: 


TSTB 


SDHSCR 


{UAIT FOR DATA TO BE RECEIVED 
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SEQ 44 



006542 


100375 




BPL 


2* 




006544 


017703 


007510 


MOV 


80HNRC,R3 


(GET RECEIVED DATA 


006550 


020367 


007604 


CMP 


R3.R0ATA 


jCOMPER EXPECTED AND RECEIVED DATA 


006554 


001407 




BEQ 


3) 




006556 


005077 


007506 


CLR 


80H6AR 


;STOP TRANSMITTER 


006562 






HLT 


1 


:OATA ERROR 


006562 


104001 




EMT 


1 




006564 


104410 




SCOPEl 




! CHECK FOR LOOP AT CURRENT SPEED 


006566 


012777 


000400 007474 


MOV 


«400.8DHBAR 


{RESTART TRANSMITTER 


006574 


105267 


007560 3): 


INCB 


ROATA 


;UPDATA EXPECTED DATA 


006600 


001356 




BNE 


2» 




006602 


062701 


002100 


ADD 


*2100.R1 


{UPDATE uINE SPEED 


006606 


005202 




INC 


R2 


{UPDATE SPEED CODE 


006610 


005300 




DEC 


RO 




006612 


001334 




BNE 


IS 




006614 


104400 


4$: 


SCOPE 








000011 


LINE 


=LINE»1 







001000 BITX«BITX*BITX 
006616 SDATA2 \LINE.\BITX 



{SINGLE LINE DATA TEST 

{TRANSMIT A BLOCK Of 400 (OCTAL) CHARACTERS ON LINE 11 
sCHARATER LENGTH IS 8 BITS 

{LINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
:T0 %00 BAUD. 

{A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
{AT EACH SPEED 



006616 








TS \XN,1.4$.1» 






006616 


012767 


000o40 


171152 


T32: 


MOV 


♦340, PS 


{DISABLE ALL INTERRUPTS 


006624 


012767 


000001 


007472 




MOV 


«1.IC0UNT 


{SET UP FOR 1 ITERATIONS 


003632 


012767 


007012 


007460 


.IF NB 


MOV 
<1»> 


«4«. ESCAPE 


;SET UP TO ESCAPE TO NEXT TEST 


006640 


012767 

000033 


006702 


007454 


.ENDC 
XN-XN«1 


MOV 


«1$.FREEZ1 


iSET UP TO LOOP WITH DATA 


006646 


012777 


004000 


007402 




MOV 


96IT11.8DHSCR 


{MASTER CLEAR INTERFACE 


006654 


012702 


000001 






MOV 


♦1.R2 


{FIRST SPEED CODE 


006660 


012705 


000011 






MOV 


«11.R5 {LINE 


11 UILL BE TESTED 


006664 


0i2767 


104400 


007466 




MOV 


«11*400« 100000 . RDATA 


tSET EXPECTED LINE NUMBER 
{AND VALID DATA FLAG 
{EXPECTED DATA 


006672 


012700 


000015 






nov 


«1S.R0 


il3 SPEEDS UILL BE TESTED 


006676 


012701 


002103 






HOV 


«2103.R1 


i FIRST SPEED -50 BAUD. 
i8 BITS PER CHARACTER 


006702 


010577 


007350 




1«: 


MOV 


R5.8CHSCR 


{SELECT LINE 11 


006706 


010177 


007350 






HOV 


R1.80HLPR 


tSET LINE SPEED AND 
{CHARACTER LENGTH 


006712 


012777 


016364 


007344 




MOV 


«TBUF.8DHBA 


{ADDRESS OF TRANSMITTER 
{DATA BUFFER 


006720 


012777 


177400 


007340 




MOV 


«-400.S0H6C 


{400 (OCTAL) BYTES 
{UILL BE TRANSMITTED 


006726 


012777 


001000 


007334 




MOV 


nOOO.SOHBAR 


{START TRANSMITTER 


006734 


105777 


007316 




2«: 


TSTB 


aOHSCR 


{WAIT FOR DATA TO BE RECEIVED 


006740 


100375 








BPL 


2) 




006742 


017703 


007312 






MOV 


SDHNRC,R3 


{GET RECEIVED DATA 
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SEQ 45 



006746 


020367 


007406 




CMP 


R3,R0ATA 


jCOMPER EXPECTED AND RECEIVED DATA 


006752 


001407 






BEQ 


3$ 


006754 


005077 


007310 




CLR 


80HBAR 


{STOP TRANSMITTER 


006760 








HLT 


1 


iOATA ERROR 


006760 


104001 






EMT 


1 




006762 


104410 






SCOPEl 




; CHECK FOR LOOP AT CURREN- SPEED 


006764 


012777 


001000 


007276 


MOV 


«1000.80HBAR 


iRESTART TRANSMITTER 


006772 


105267 


007362 


Zt: 


INCB 


ROATA 


sUPDATA EXPECTED DATA 


006776 


001356 






BNE 


2t 




007000 


062701 


002100 




ADO 


«2100,R1 


{UPDATE LINE SPEED 


007004 


005202 






INC 


R2 


: UPDATE SPEED CODE 


007006 


005300 






DEC 


RO 




007010 


001334 






BNE 


U 




007012 


104400 




4$: 


SCOPE 








000012 




LINE 


•LINE*1 








002000 




BITX 


'BITX*BITX 







007014 SDATA2 \LINE.\BITX 

.•SINGLE LINE DATA TEST 

{TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 12 
{CHARATER LENGTH IS 8 BITS 

:LINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
.-TO 9600 BAUD. 

iU BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
;AT EACH SPEED 



007014 








TS \XN.1.4$.1» 






007014 


012767 


000340 


170754 


T33: 


MOV 


0340.PS 


{DISABLE ALL INTERRUPTS 


007022 


012767 


000001 


007274 




MOV 


«1.IC0UNT 


{SET UP FOR 1 ITERATIONS 


007030 


012767 


007210 


007262 


.IF NB 


MOV 
<1»> 


«4«. ESCAPE 


tSET UP TO ESCAPE TO NEXT TES1 


007036 


012767 
000034 


007100 


0C7256 


.ENDC 
XN«XN*1 


MOV 


«1$,FREE21 


I SET UP TO LOOP UITH DATA 


007044 


012777 


004000 


007204 




MOV 


«6IT11.80HSCR 


{MASTER CLEAR INTERFACE 


007052 


012702 


000001 






MOV 


«1,R2 


{FIRST SPEED CODE 


007056 


012705 


000012 






MOV 


«12.R5 iLINE 


12 WILL BE TESTED 


007062 


012767 


105000 


007270 




NOV 


«12*400* 100000 . ROATA 


sSET EXPECTED LINE NUMBER 
{AND VALID DATA FLAG 
•.EXPECTED DATA 


007070 


012700 


000015 






MOV 


«1S,R0 


;13 SPEEDS UILL BE TESTED 


007074 


012701 


002103 






MOV 


♦2103. Rl 


{FIRST SPEED -50 BAUD. 
:8 BITS PER CHARACTER 


007100 


010577 


007152 




11: 


MOV 


R5.00HSCR 


{SELECT LINE 12 


007104 


010177 


007152 






MOV 


R1,9DHLPR 


{SET LINE SPEED AND 
{CHARACTER LENGTH 


007110 


012777 


016364 


007146 




MOV 


*TBUF,8DHBA 


s ADDRESS OF TRANSMITTER 
sDATA BUFFER 


007116 


012777 


177400 


007142 




MOV 


»-400,8DHBC 


j400 COCTAL) BYTES 
{WILL BE TRANSMITTED 


007124 


012777 


002000 


007136 




MOV 


«!000.8DHBAR 


{START TRANSMITTER 


007132 


105777 


007120 




21: 


TSTB 


8DHSCR 


{UAIT FOR DATA TO BE RECEIVED 


007136 


100375 








BPL 


2$ 




007140 


017703 


007114 






MOV 


S0HNRC,R3 


:GET RECEIVED DATA 


00"'144 


020367 


007210 






CMP 


R3,RDATA 


{COMPER EXPECTED AND RECEIVED 


007150 


001407 








BEQ 


3$ 
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007152 


005077 


007112 




CLR 


80HBAR 


J STOP TRANSMITTER 


007156 








HLT 


1 


iOATA ERROR 


007156 


104001 






EMT 


1 


007160 


104410 






SCOPEl 




; CHECK FOR LOOP AT CURRENT 


007162 


012777 


002000 


007100 


MOV 


«2000.80HBAR 


s RESTART TRANSMITTER 


007170 


105267 


007164 


3»: 


INCB 


RDATA 


jUPDATA EXPECTED DATA 


007174 


001356 






BNE 


2) 


007176 


062701 


002100 




ADO 


«2100.R1 


i UPDATE LINE SPEED 


007202 


005202 






INC 


R2 


; UPDATE SPEED CODE 


007204 


005300 






DEC 


RO 




007206 


001334 






BNE 


1$ 




007210 


104400 




4$: 


SCOPE 








000013 




LINE 


•LINE*1 








004000 




BITX 


-BITX*BITX 







007212 



SDATA2 \LINE,\BITX 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 13 
CHARATER LENGTH IS 8 BITS 

LINE SPEED UILL START AT 50 BAUD ANO BE INCREMENTED 
TO 9600 PAUD. 

A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
AT EACH SPEED 



007212 



TS \XN.1.4».1$ 



007P12 


012767 


000340 


170556 


T34: 


MOV 


#340 PS 




007220 


012767 


000001 


007076 




MOV 


♦i I COUNT 


•SFT IIP FnR 1 TTFBATTnM<; 


007226 


012767 


007406 


007064 


.IF NB 


MOV 
<!♦> 


«4$, ESCAPE 


sSET UP TO ESCAPE TO NEXT TEST 


007234 


012767 


007276 


007060 




nov 


«1$.FREEZ1 


:SET UP TO LOOP WITH DATA 










.ENOC 








000035 






XN-XN*1 








007242 


012777 


004000 


007006 




MOV 


OBITll.eOHSCR 


: MASTER CLEAR INTERFACE 


007250 


012702 


000001 






MOV 


«1.R2 


J FIRST SPEED CODE 


007254 


012705 


000013 






MOV 


«13.R5 iLINE 


13 UILL BE TESTED 


007260 


012767 


105400 


007072 




MOV 


«13*400* lOOOOO.ROATA 


sSET EXPECTED LINE NUtffiER 
:ANO VALID DATA FLAG 
; EXPECTED DATA 


007266 


012700 


000015 






MOV 


#15. RO 


:13 SPEEDS UILL BE TESTED 


007272 


012701 


002103 






MOV 


«2103,R1 


{FIRST SPEED -50 BAUD, 
t8 BITS PER CHARACTER 


007276 


010577 


006754 




1$: 


MOV 


R5.S0HSCR 


(SELECT LINE 13 


007302 


010177 


006754 






MOV 


R1.80HLPR 


(SET LINE SPEED AND 
i CHARACTER LENGTH 


007306 


012777 


016364 


006750 




MOV 


«TBUF.aDHBA 


t ADDRESS OF TRANSMITTER 
iDATA BUFFER 


007314 


012777 


177400 


006744 




MOV 


«-400.aOHBC 


;400 (OCTAL) BYTES 
:UILL BE TRANSMITTED 


007322 


012777 


004000 


006740 




MOV 


«4000.90HBAR 


; START TRANSMITTER 


007330 


105777 


006722 




2t: 


TSTB 


SDHSCR 


iUAIT FOR DATA TO BE RECEIVED 


007334 


100375 








BPL 


2* 




007336 


017703 


006716 






MOV 


SDHNRC,R3 


;GET RECEIVED DATA 


007342 


020367 


007012 






CMP 


R3. RDATA 


sCOMPER EXPECTED AND RECEIVED DATA 


007346 


001407 








BEQ 


3) 




007350 


005077 


006714 






CLR 


SDHBAR 


;STOP TRANSMITTER 


007354 










HLT 


1 


.-DATA ERROR 
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SEQ 47 



007354 


104001 






EMT 


1 




007356 


104410 






SCOPEl 




; CHECK FOR LOOP AT CURRENT 


007360 


012777 


004000 


006702 


MOV 


M000.8DHBAR 


sRESTART TRANSMITTER 


007366 


105267 


006766 


3$: 


INCB 


RDATA 


tUPDATA EXPECTED DATA 


007372 


001356 






BNE 


2* 




007374 


062701 


002100 




ADO 


«2100.R1 


[UPDATE LINE SPEED 


007400 


005202 






INC 


R2 


; UPDATE SPEED CODE 


00740? 


005300 






OEC 


RO 




007404 


001334 






BNE 


1* 




007406 


104400 




4$: 


SCOPE 








000014 




LINE 


«LINE*1 








010000 




BITX 


-BITX*BITX 







007410 



S0ATA2 \LINE.\BITX 



: SINGLE LINE DATA TEST 

! TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 14 
:CHARATER LENGTH IS 8 BITS 

:LINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
:T0 9600 BAUD. 

:A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
:AT EACH SPEED 



007410 



TS \XN.1.4».l* 



0C7410 


012767 


000340 


170360 


T35- 


MOV 


ATAA PS 




007416 


012767 


000001 


006700 




MOV 


*1 TCOUNT 


■ <IFT IIP pna 1 TTPBATTnMC 


007424 


012767 


007604 


006666 


• IF NB 


MOV 
<lt> 


Mt ESCAPE 


• SFT UP TO F^CAPP Tfl MFVT TFCT 


007432 


012767 
000036 


007474 


006662 

WWWWWb 


.ENOC 
XN-XNtl 


MOV 


WAV # r nbWfc* 


• SFT UP Tn 1 nnp utth data 


007440 


012777 


004000 


006610 




MOV 


«BITll,aDHSCR 


! MASTER CLEAR INTERFACE 


007446 


012702 


000001 






MOV 


#1.R2 


.•FIRST SPEED COTE 


007452 


012705 


000014 






MOV 


«14.R5 {LINE 


14 UILL BE TESTED 


007456 


012767 


106000 


00b674 




MOV 


«14*400 * 100000 . ROATA 


:SET EXPECTED LINE NUMBER 
:ANO VALID DATA FLAG 
iEXPECTED DATA 


007464 


012700 


000015 






MOV 


♦15. RO 


:13 SPEEDS UILL BE TESTED 


007470 


012701 


002103 






MOV 


♦2103. Rl 


{FIRST SPEED -50 BAUD. 
tt BITS PER CHARACTER 


007474 


010577 


006556 




1$: 


MOV 


RS.80HSCR 


{SELECT LINE 14 


007500 


010177 


006556 






MOV 


Rl.iOHLPR 


:SET LINE SPEED tm 
{CHARACTER LENGTH 


007504 


012777 


016364 


006552 




MOV 


♦fBUF.SOHBA 


{ADDRESS OF TRANSMITTER 
{DATA BUFFER 


007512 


012777 


177400 


006546 




MOV 


♦-4O0.S0HBC 


>400 (OCTAL) BYTES 
(UILL BE TRANSMITTED 


007520 


012777 


010000 


006542 




MOV 


♦10000. 8DHBAR 


{START TRANSMITTER 


007526 


105777 


006524 




21: 


TSTB 


SOHSCR 


{UAIT FOR DATA TO BE RECEIVED 


007532 


100375 








BPL 


2* 




007534 


017703 


006520 






MOV 


90HNRC.R3 


{GET RECEIVED DATA 


007540 


020367 


006614 






CMP 


R3, ROATA 


iCOMPER EXPECTED AND RECEIVED DATA 


007544 


001407 








BEQ 


3$ 




007546 


005077 


006516 






CLR 


SOKSAR 


{STOP TRANSMITTER 


007552 










HLT 


1 


(DATA ERROR 


007552 


104001 








EMT 


1 




007554 


104410 








SCOPEl 




{CHECK FOR LOOP AT CURRENT SPEED 
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SEQ 48 



007556 


012777 


010000 


006504 


MOV 


«10000.90HBAR 


007564 


105267 


006570 


3): 


INCB 


ROATA 


007570 


001356 






BNE 


2) 


007572 


062701 


002100 




ADO 


«2100.R1 


007576 


005202 






INC 


R2 


007600 


005300 






DEC 


RO 


007602 


001334 






BNE 


1) 


007604 


104400 




4$: 


SCOPE 






000015 




LINE 


=LINE*1 






020000 




BITX 


•BITX»BITX 





{RESTART TRANSMITTER 
sUPOATA EXPECTED DATA 

{UPDATE LINE SPEED 
{UPDATE SPEED CODE 



007606 



SDATA2 \LINE.\BITX 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 C OCTAL) CHARACTERS ON LINE 15 
CHARATER LENGTH IS 8 BITS 

LINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
TO 9600 BAUD. 

A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
AT EACH SPEED 



007606 



TS \XN.i.4».l» 









1 701 ft? 


1 wo : 


MOU 






007At4 






OOftSO? 




Hnu 




-QPT 1 ID PnO 1 TTPDATTnuC 

{OCI Ur run x X]cnnli.UNo 


W f vcc 


0137#i7 


01 0009 
VA vwc 


006470 




I Iw V 




• CPT iiD Tn PcrAOP Tn ucvt tcct 










IF NB 


^ X ♦ ' 




007630 


012767 


007672 


006464 

w 




MOV 


d1 t FRFF71 
vx V f r ntb&x 


• <SFT IIP TO 1 nnP UTTM nSTA 
(dCI ur lu LUUr HXin Unln 










FNDC 








000037 














007636 


012777 


004000 


006412 




MOV 


MIT 1 1 aOHSCR 


•MACTPP n PAD TMTPPPArP 


007644 


012702 


OGOOOl 






MOV 


«1 R2 


• PTR^T cpppn rrviP 


007650 


012705 


000015 

W W 






MOV 




IS uTi 1 RP TP<;TPn 


007654 


012767 


106400 


006476 




MOV 


«15*400« 100000 . ROATA 


:SET EXPECTED LINE NUMBER 
iAND VALID DATA FLAG 
(EXPECTED DATA 


007662 


012700 


000015 






MOV 


#15. RO 


sl3 SPEEDS UILL BE TESTED 


007666 


012701 


002103 






MOV 


«2103.R1 


iFIRST SPEED >50 BAUD. 
:8 BITS PER CHARACTER 


007672 


010577 


006360 




1$: 


MOV 


R5.80HSCR 


i SELECT LINE 15 


007676 


010177 


006360 






MOV 


R1.80HLPR 


:SET LINE SPEED AND 
s CHARACTER LENGTH 


007702 


012777 


016364 


006354 




MOV 


«TBUf .8DHBA 


i ADDRESS or TRANSMITTER 
J DATA BUFFER 


007710 


012777 


177400 


006350 




MOV 


«-400.80HBC 


;400 (OCTAL) BYTES 
:UILL BE TRANSMITTED 


007716 


012777 


020000 


006344 




MOV 


«20000.80HBAR 


{START TRANSMITTER 


007724 


105777 


006326 




2): 


TSTB 


SDHSCR 


sUAIT FOR DATA TO BE RECEIVED 


007730 


100375 








BPL 


2« 




007732 


017703 


006322 






MOV 


80HNRC.R3 


{GET RECEIVED DATA 


007736 


020367 


006416 






CMP 


R3, ROATA 


jCOMPER EXPECTED AND RECEIVED DATA 


007742 


001407 








6EQ 


3* 




007744 


005077 


006320 






CLR 


aOHBAR 


{STOP TRANSMITTER 


007750 










HLT 


1 


iDATA ERROR 


007750 


104001 








EMT 


1 




007752 


104410 








SCOPEl 




{CHECK FOR LOOP AT CURRENT SPEED 


007754 


012777 


020000 


006306 




MOV 


«20000.8DHBAR 


{RESTART TRANSMITTER 


007762 


105267 


006372 




3»: 


INCB 


RDATA 


sUPDATA EXPECTED DATA 
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SEQ 49 



007766 


001356 


CNE 


k* 


007770 


062701 002100 


ADO 


#2100. Rl 


007774 


005202 


INC 


R2 


007776 


005300 


DEC 


RO 


010000 


001334 


BNE 


1) 


010002 


104400 


4$: SCOPE 






000016 


LINE-LINE»1 






040000 


BITX«BITX»BITX 




010004 




SDATA2 \LINE,\BITX 



; UPDATE IINE SPEED 
; UPDATE SPEED CODE 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 16 
CHARATER LENGTH IS 8 BITS 

LINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
TO 9600 BAUD. 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
AT EACH SPEED 



010004 



TS \XN,1,4»,1$ 



010004 


012767 


000340 


167764 


T37: 


MOV 


«340.PS 


01 no 1 7 




000001 
w w vx 


OOA^OA 




MOU 




010020 


012767 


OlOPOO 


00697? 
woe 1 c 




MOU 












TF Nfl 


< 1 1 > 




010026 


012767 


010070 


006266 

VV VC- W 




MOU 


A^ S FRPP71 










ENOC 








000040 






AH ~ X 






010034 


012777 


004000 


006214 




MOV 


MIT 11 aOHSCR 


010042 


012702 


000001 

www A 






MOV 


41 R2 

*rx « 


010046 


012705 


000016 






MOV 


41A RS •! TNP 


010052 


012767 


107000 


006300 




MOV 


Mfi*400^ 100000 RDATA 
wxw*^w~ xwvvw 1 wwn i n 


010060 


012700 


000015 






MOV 


«15.R0 


010064 


012701 


002103 






MOV 


«2103.R1 


010070 


010577 


006162 




1»: 


MOV 


R5.0DHSCR 


010074 


010177 


006162 






MOV 


R1.80HLPR 


010100 


012777 


016364 


006156 




HOV 


«TBUF.aDHBA 


010106 


012777 


177400 


006152 




MOV 


«-400.S0HBC 


010114 


012777 


040000 


006146 




MOV 


•40000. 30HBAR 


010122 


105777 


006130 




2»: 


TSTB 


aOHSCR 


010126 


1003-'5 








BPL 


2» 


010130 


017703 


006124 






MOV 


80HNRC.R3 


010134 


020367 


C06220 






CMP 


R3,f<{}ATA 


010140 


001407 








BEQ 


3$ 


010142 


005077 


006122 






CLR 


90HBAR 


010146 










HLT 


1 


010146 


104001 








EMT 


1 


010150 


104410 








SCOPEl 




010152 


012777 


040000 


006110 




MOV 


«40000.80HBAR 


010160 


105267 


006174 




3»: 


INCB 


RDATA 


010164 


001356 








BNE 


2( 


01C166 


062701 


002100 






ADD 


«2100.R1 



DISABLE ALL INTERRUPTS 

SET UP FOR 1 ITERATIONS 

SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



jMASTER CLEAR INTERFACE 
jFlRST SPEED CODE 
16 WILL BE TESTED 



SET EXPECTED LINE NUMBER 

AND VALID DATA FLAG 

EXPECTED DATA 

13 SPEEDS WILL BE TESTED 

FIRST SPEED -50 BAUD. 

8 BITS PER CHARACTER 

SELECT LINE 16 

SET LINE SPEED AND 

CHARACTER LENGTH 

ADDRESS OF TRANSMITTER 

DATA BUFFER 

400 (OCTAL) BYTES 

UILL BE TRANSMITTED 

START TRANSMITTER 

WAIT FOR DATA TO BE RECEIVED 

:GET RECEIVED DATA 

:COMPER EXPECTED AND RECEIVED DATA 

J STOP TRANSMITTER 
(DATA ERROR 

(CHECK FOR LOOP AT CURRENT SPEED 
(RESTART TRANSMITTER 
(UPOATA EXPECTED DATA 

(UPDATE LINE SPEED 
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SEQ 50 



010172 005202 INC R2 ; UPDATE SPEED CODE 

010174 005300 OEC RO 

010176 001334 BNE 1$ 

010200 104400 4$: SCOPE 

000017 LINE*LINE*1 

100000 B1TX-B1TX»BITX 

010202 SDATA2 \LINE.\BITX 

.•SINGLE LINE DATA TEST 

: TRANSMIT A BLOCK OF 400 ( OCTAL) CHARACTERS ON LINE 17 
jCHARATER LENGTH IS 6 BITS 

iLINE SPEED UILL START AT 50 BAUD AND BE INCREMENTED 
iTO 9600 BAUD. 

iA BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
jA-^ EACH SPEED 



010202 








TS \XN 


,1.4»,1 • 






010202 


012767 


000340 


167566 


T40: 


MOV 


♦340. PS 


{DISABLE ALL INTERRUPTS 


010210 


01u767 


000001 


006106 




MOV 


♦l.ICOUNT 


:SET UP FOR 1 ITERATIONS 


010216 


012767 


010376 


006074 


• IF NB 


MOV 
<1»> 


♦41. ESCAPE 


sSET UP TO ESCAPE TO NEXT TEST 


010224 


012767 
000041 


010266 


006070 


.ENOC 
XN*XN* 


MOV 

1 


A* A PA^PV4 

♦D.rREEZl 


sSET UP TO LOOP WITH DATA 


010232 


012777 


004000 


006016 




MOV 


♦6IT11 .3DHSCR 


J MASTER CLEAR INTERFACE 


010240 


012702 


AAAAA 4 
OCOOOl 






MOV 


A4 


PTnC'T r*nprA A AAP 

;FIRST SPEED CODE 


010244 


012705 


AAA A 4 ~T 

000017 






MOV 


♦17. R5 sLINE 


17 UILL BE TESTED 


010250 


012767 


107400 


006102 




MOV 


l^ilAA 4 AAAAA AAAVA 

♦17*400* 100000 .ROATA 


OPT P WOPA YPA 1 YLaP mMf\M~ ft 

;SET EXPECTED LINE NUHBER 
:ANO VALID DATA FLAG 
: EXPECTED DATA 


010256 


012700 


AA AA 4 C 

0000 Id 






nUV 


•l3.R0 


;13 SPEEDS UILL BE TESTED 


010262 


A4 '^'?A4 

012701 


AA*^ 4 AT 

002106 






Mm/ 

nuv 


4 AT O 4 


;FIRST SPEED 'SO BAUD. 

A B T ▼ P BPn Alj AB AJ^ VPB 

:o BITS PER CHARACTER 


010266 


A 4 AC 

010577 


A A £. A 

005764 




1> : 


nuv 


Rs .SOHSLK 


PCi PAT I Tup 4 ^ 

: SELECT LINE 17 


010272 


Ai A 4 "n 

010177 


005764 






nuv 


Rl faUHLrR 


PPT 1 TklP pnppB AAlB 

:ScT LINE SPEED AND 


010276 


012777 


016364 


005760 




MOV 


♦TBUF.aOHBA 


: ADDRESS OF TRANSNITTER 
:OATA BUFFER 


010304 


012777 


177400 


005754 




MOV 


♦•4C0.a0HBC 


;400 (OCTAL) BYTES 
:UILL BE TRANSMITTED 


010312 


012777 


100000 


005750 




MOV 


♦100000. 8DHBAR 


.•START TRANSMITTER 


010320 


105777 


005732 




2$: 


TSTB 


aOHSCR 


iUAIT FOR DATA TO BE RECEIVED 


010324 


100375 








8PL 


2« 




010326 


017703 


005726 






MOV 


90HNRC.R3 


iCET RECEIVED DATA 


010332 


020367 


006022 






CMP 


R3. ROATA 


sCOMPER EXPECTED AND RECEIVED DATA 


010336 


001407 








BEQ 


3$ 




010340 


005077 


005724 






CLR 


90HBAR 


sSTOP TRANSMITTER 


010344 










HLT 


1 


sDATA ERROR 


010344 


104001 








EMT 


1 




010346 


104410 








SCOPEl 




: CHECK FOR LOOP AT CURRENT SPEED 


010350 


012777 


100000 


005712 




MOV 


♦100000. SOHBAR 


(RESTART TRANSMITTER 


010356 


105267 


005776 




31: 


INCB 


ROATA 


sUPDATA EXPECTED DATA 


010362 


001356 








BNE 


2$ 




010364 


062701 


002100 






ADO 


♦2100. Rl 


: UPDATE LINE SPEED 


010370 


005202 








INC 


R2 


J UPDATE SPEED CODE 


010372 


005300 








DEC 


RO 
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SEQ 



30 
31 
32 
33 
35 
36 
37 
38 
39 
40 
41 



010374 00133< 
010376 104400 
000020 
000000 
000000 
000000 
000001 
000001 
000020 



010400 



BNE 1« 

4$: SCOPE 

LINE 'LINE ♦! 

BITX»BITX*BITX 

LINE-0 

XLINE'LINE 

BITX-1 

XBIT-BITX 

.REPT 20 

SDATA3 \LINE.\BITX 

.NLIST 

LINE-LINE»1 

BITX-BITX»BITX 

.LIST 

.ENOR 

S0ATA3 \LINE.\BITX 



010400 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 0 
LINE SPEED IS 9600 BAUD 

CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
TO 8 BITS 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
AT EACH CHARACTER LENGTH 



TS \XN,1.4$.1» 





VXc ( D > 






JA \ • 
1 X . 




AT Aft 


010406 


012767 


000001 


005710 




MOV 


#1.IC0UNT 


010414 


012767 


010616 


005676 




MOV 


#4 ». ESCAPE 










.IF NB 


<1»> 




010422 


012767 


010470 


005672 




MOV 


♦1».FREEZ1 










.ENDC 








000042 






XN-XN*1 






010430 


012777 


004000 


005620 




MOV 


«BIT11.80HSCR 


010436 


005004 








CLR 


R4 


010440 


012705 


000000 






MOV 


«O.RS iLINE 


010444 


012767 


100000 


005706 




MOV 


40*400* 100000. ROAT A 


010452 


012700 


000004 






MOV 


«4.RC 


010456 


012701 


033500 






MOV 


«33500.R1 


01C462 


012767 


177740 


005672 




MOV 


♦-40.BYTCNT 


010470 


010577 


005562 




1): 


MOV 


R5.80HSCR 


010474 


016702 


005662 






MOV 


BYTCNT.R2 


010500 


005402 








NEG 


R2 


010502 


010177 


005554 






MOV 


R1.80HLPR 


010506 


012777 


016364 


005550 




MOV 


«T6UF.S0HBA 


010514 


016777 


005642 


005544 




MOV 


BYTCNT.SOHBC 


010522 


012777 


000001 


005540 




MOV 


«1.3DH6AR 


010530 


105777 


005522 




2): 


TSTB 


SOHSCR 


010534 


100375 








BPL 


2> 



DISABLE ALL INTERRUPTS 

SET UP FOR 1 ITERATIONS 

SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



: 3 



:MASTER CLEAR INTERFACE 

: FIRST CHARACTER LENGTH CODE (5 BITS) 

UILL BE TESTED 



SET EXPECTED LINE NUMBER 
AND VALID DATA FLAG 
EXPECTED DATA 
4CHARACTER LENGTHS 
UILL BE TESTED 

FIRST CHARACTER LENGTH -5 BITS.. 
LINE SPEED «9600 BAUD 
40 CHARACTERS AT 5 BITS 
SELECT LINE 0 



iSET LINE SPEED AND 

(CHARACTER LENGTH 

t ADDRESS OF TRANSMITTER 

(DATA BUFFER 

t400 (OCTAL) BYTES 

I UILL BE TRANSMITTED 

J START TRANSMITTER 

:UAIT FOR DATA TO BE RECEIVED 
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SEQ 52 



010536 


017703 


005516 




MOV 


9DHNRC.R3 


;GET RECEIVED DATA 


010542 


020367 


005612 




CMP 


R3.RDATA 


;COMPER EXPECTED AND RECEIVED DATA 


010546 


001407 






BEQ 


3) 




010550 


005077 


005514 




CLR 


8DHBAR 


sSTOP TRANSMITTER 


010554 








HLT 


2 


sDATA ERROR 


010554 


104002 






EMT 


2 




010556 


104410 






SCOPEl 




{CHECK FOR LOOP AT CURRENT SPEED 


010560 


012777 


000001 


005502 


MOV 


«1,80HBAR 


tRESTART TRANSMITTER 


010566 


105267 


005566 


3*: 


INCB 


ROATA 


:UPOATA EXPECTED DATA 


010572 


005302 






DEC 


R2 




010574 


001355 






BNE 


2) 




010576 


105067 


005556 




CLRB 


RDATA 


{INITIALIZE EXPECTED 
{RECEIVED DATA 


010602 


005201 






INC 


Rl 


sUPDATA CHARACTER LENGTH 


010604 


005204 






INC 


R4 




010606 


006367 


005550 




ASL 


BYTCNT 




010612 


005300 






DEC 


RO 




010614 


001325 






BNE 


1) 




010616 


104400 
000001 
000002 




4): 

LINE 

BITX 


SCOPE 
•LINE*1 
-BITX»BITX 






010620 






S0ATA3 \LINE.\BITX 





SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 1 
LINE SPEED IS 9600 BAUD 

CHARACTER LENGTH UILL START AT 5 BITS AND BE INCRENENTEO 
{TO 8 BITS 

{A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
{AT EACH CHARACTER LENGTH 



010620 








TS \XN,1.4t.l* 




010620 


012767 


000340 


167150 


T42: 


NOV 


*340,PS 


010626 


012767 


000001 


005470 




NOV 


«1.IC0UNT 


010634 


012767 


011036 


005456 




NOV 


Ml. ESC APE 










.IF NB 


<ll> 




010642 


012767 


010710 


005452 




NOV 


MI.FREEZl 










.ENOC 








000043 






XN-XN«1 






010650 


012777 


004000 


005400 




NOV 


«eiTll.BOHSCR 


010656 


005004 








CLR 


R4 


010660 


012705 


000001 






NOV 


•1.R5 {LINE 


010664 


012767 


100400 


005466 




MOV 


*l*400tl00000. RDATA 


010672 


012700 


000004 






MOV 


«4.R0 


010676 


012701 


033500 






MOV 


*33500.R1 


010702 


012767 


177740 


005452 




MOV 


♦-40. BYTCNT 


010710 


010577 


005342 




IS: 


MOV 


RS.BOHSCR 


010714 


016702 


005442 






MOV 


BYTCNT. R2 


010720 


005402 








NEG 


R2 


010722 


010177 


005334 






MOV 


R1.80HLPR 


010726 


012777 


016364 


005330 




MOV 


*TBUF,80HBA 



{DISABLE ALL INTERRUPTS 

J SET UP FOR 1 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

I SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 
{FIRST CHARACTER LENGTH CODE (5 BITS) 
1 UILL BE TESTED 

I SET EXPECTED LINE NUMBER 
I AND VALID DATA FLAG 
{EXPECTED DATA 
i4CHARACTER LENGTHS 
tUILL BE TESTED 

{FIRST CHARACTER LENGTH -5 BITS.. 
{LINE SPEED -9600 BAUD 
{40 CHARACTERS AT 5 BITS 
{SELECT LINE 1 



{SET LINE SPEED AND 
{CHARACTER LENGTH 
tAOORESS OF TRANSMITTER 
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SE6 53 



;OATA BUFFER 



010734 


016777 


005422 


005324 




MOV 


6YTCNT.80HBC 


;400 (OCTAL) BYTES 
;UILL BE TRANSMITTED 


010742 
010750 


012777 


000002 


005320 




MOV 


«2.9DHBAR 


s START TRANSMITTER 


105777 


005302 






TSTB 


90HSCR 


sUAIT FOR DATA TO BE RECEIVED 


010754 


100375 








BPL 


2t 




010756 


017703 


005276 






MOV 


aOHNRC.RB 


:GET RECEIVED DATA 


010*762 


020367 


005372 






CMP 


RB.RDATA 


sCOMPER EXPECTED AND RECEIVED DATA 


010766 


001407 








BEQ 


3) 




010770 


005077 


005274 






CLR 


aOHBAR 


;STOP TRANSMITTER 


010774 










HLT 


2 


:OATA ERROR 


010774 


104002 








EMT 


2 




010776 


104410 








SCOPEl 




: CHECK FOR LOOP AT CURRENT SPEED 


011000 


012777 


000002 


005262 




MOV 


»2.90HBAR 


■.RESTART TRANSMITTER 


011006 


105267 


005346 




3»: 


INCB 


ROATA 


;UPDATA EXPECTED DATA 


011012 


005302 








DEC 


R2 




011014 


001355 








BNE 


2t 




011016 


105067 


005336 






CLRB 


ROATA 


INITIALIZE EXPECTED 












: RECEIVED DATA 


011022 


005201 








INC 


Rl 


iUPOATA CHARACTER LENGTH 


011024 


005204 








INC 


R4 




011026 


006367 


005330 






ASL 


BYTCNT 




011032 


005300 








DEC 


RO 




011034 


001325 








BNE 


1* 




011036 


104400 
000002 
000004 






4»: 

LINE 
BITX 


SCOPE 
«LINE»1 
•BITX»BITX 







011040 



BOAT A3 \LINE.\BXTX 



.•SINGLE LINE DATA TEST 

: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 2 
:LINE SPEED IS 9600 BAUD 

{CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
:T0 8 BITS 

:A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
I AT EACH CHARACTER LENGTH 



011040 
011040 
011046 
011054 



011070 
011076 
011100 
011104 



012767 000340 166730 
012767 000001 005250 
012767 011256 005236 



TS \XN, 
T43: 



011062 012767 011130 005232 



000044 

012777 
0C5004 
012705 
012767 



004000 005160 
000002 

101000 005246 



.IF NB 

.ENOC 
XN-XN*1 



1.4».1» 
MOV 
MOV 
MOV 
<1»> 
HOV 



011112 012700 000004 
011116 012701 033500 
011122 012767 177740 005232 



nov 

MOV 
MOV 



MOV 
MOV 
MOV 



♦340. PS 
•l.ICOIJNT 
«4$, ESCAPE 

•1>.FREEZ1 



«BIT11.80HSCR 
R4 

«2.RS tLINE 
«2*40C» 100000. ROATA 



M.RO 
«33500.R1 
♦ 40,BrTCNT 



;0ISABLE ALL INTERRUPTS 

;SET UP FOR 1 ITERATIONS 

.-SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



, MASTER CLEAR INTERFACE 

iFIRST CHARACTER LENGTH CODE (5 BITS) 

WILL BE TESTED 

iSET EXPECTED LINE NUMBER 
:AND VALID DATA FLAG 
{EXPECTED DATA 
:4CHARACTER LENGTHS 
{WILL BE TESTED 

jFIRST CHARACTER LENGTH '5 BITS.. 
{LINE SPEED -9600 BAUD 
;40 CHARACTERS AT 5 BITS 



C20Hr-C0 
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3EQ 54 



C11130 


010577 


005122 




It: 


MOV 


R5.S0HSCR 


01 1134 


VXv ■ vc 








HOW 




011140 


005402 








NEC 


R2 


Ql 1 14P 


310177 


OO^l lA 






nu w 


Of anHi PD 


011146 


012777 


016364 


0051 10 




MOV 


0TBUF.9DHBA 


011154 


016777 


005202 


005104 




MOV 


BYTCNT.SOHBC 


011162 


012777 


000004 


005100 




MOV 


04.aDHBAR 


011170 


105777 


005062 




2S: 


TSTB 


aOHSCR 


011174 


100375 








BPL 


2t 


011176 


017703 


005056 






MOV 


SDHNRC.R3 


011202 


020367 


005152 






CMP 


R3.R0ATA 


011206 


001407 








BEQ 


3t 


011210 


005077 


005054 






CLR 


90H6AR 


011214 










HLT 


2 


011214 


104002 








EMT 


2 


011216 


104410 








SCOPEl 




011220 


012777 


000004 


005042 




MOV 


04 aDHBAR 


011226 


105267 


005126 




3»: 


INCB 


ROATA 


011232 


005302 








DEC 


R2 


011234 


001355 








BNE 


2) 


011236 


105067 


005116 






CLRB 


RDATA 


011242 


005201 








INC 


Rl 


011244 


005204 








INC 


R4 


011246 


006367 


005110 






ASL 


BYTCNT 


011252 


005300 








DEC 


RO 


011254 


001325 








BNE 


1» 


011256 


104400 






4»: 


SCOPE 






000003 






LINE 


•LINE.l 






000010 






BITX 


«BITX*BITX 





: SELECT LINE 2 



SET LINE SPEED AND 

CHARACTER LENGTH 

ADDRESS OF TRANSMITTER 

DATA BUFFER 

400 (OCTAL) BYTES 

WILL BE TRANSMITTED 

START TRANSMITTER 

WAIT FOR DATA TO BE RECEIVED 

:GET RECEIVED DATA 

;COMPER EXPECTED AND RECEIVED DATA 

J STOP TRANSMITTER 
iDATA ERROR 

CHECK FOR LOOP AT CURRENT SPEED 
RESTART TRANSMITTER 
UPDATA EXPECTED DATA 



;INITIALIZE EXPECTED 

jRECEIVED DATA 

J UPDATA CHARACTER LENGTH 



011260 



S0ATA3 \LINE,\BITX 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 3 
LINE SPEED IS 9600 BAUD 

CHARACTER LENGTH MILL START AT 5 BITS AW BE INCREMENTED 
TO 8 BITS 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
iAT EACH CHARACTER LENGTH 



011260 TS \XN.1.4»,1» 

011260 012767 000340 166510 T44: MOV 
011266 012767 000001 005030 MOV 
011274 012767 011476 005016 MOV 

.IF NB <1»> 
MOV 

.ENOC 
XN-XN*1 

MOV 
CLR 

000003 MOV 
101400 005026 MOV 



011302 012767 011350 005012 



011310 
011316 
011320 
011324 



000045 
012777 
005004 
012705 
012767 



004000 004740 



♦340.PS 
♦l.ICOUNT 
M». ESCAPE 

♦H.FREEZl 



sOISABLE ALL INTERRUPTS 

sSET UP FOR 1 ITERATIONS 

;SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



•BITll.aOHSCR jMASTER CLEAR INTERFACE 

R4 jFIRST CHARACTER LENGTH CODE (5 BITS"* 

«3,R5 {LINE 3 WILL BE TESTED 

*3*400* 100000. ROATA 

iSET EXPECTED LINE NUMBER 
I AND VALID DATA FLAG 



C2DHF CO 
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iEXPECTEO DATA 



011332 


012700 


000004 






MOV 


«4.R0 


;4CHARACTER LENGTHS 
sUILL BE TESTED 


011336 


012701 


033500 






MOV 


«33500.R1 


iFIRST CHARACTFR LENGTH -5 BITS,. 
J LINE SPEED "foOO BAUD 


011342 


012767 


177740 


005012 




MOV 


♦-40.BYTCNT 


j40 CHARACTERS AT 5 BITS 


011350 


010577 


004702 




1$: 


MOV 


R5.8DHSCR 


; SELECT LINE 3 


011354 


016702 


005002 






MOV 


BYTCNT,R2 




011360 


005402 








NEG 


R2 




011362 


010177 


004674 






MOV 


Rl.SOHLPR 


jSET LINE SPEED AND 
: CHARACTER LENGTH 


011366 


012777 


016364 


004670 




MOV 


«TBUF,80HBA 


! ADDRESS OF TRANSMITTER 
jDATA BUFFER 


011374 


016777 


004762 


004664 




MOV 


BfTCNT.SDHBC 


j400 (OCTAL) BYTES 
;WILL BE TRANSMITTED 


011402 


012777 


000010 


004660 




MOV 


«10.S0HBAR 


; START TRANSMITTER 


011410 


105777 


004642 




2): 


TSTB 


SDHSCR 


sUAIT FOR DATA TO BE RECEIVED 


011414 


100375 








BPL 


2$ 




CI 1416 


017703 


004636 






MOV 


80HNRC.R3 


;GET RECEIVED DATA 


011422 


020367 


004732 






CMP 


R3.R0ATA 


sCOMPER EXPECTED AND RECEIVED DATA 


011426 


001407 








BEQ 


3» 




011430 


005077 


004634 






CLR 


90HBAR 


sSTOP TRANSMITTER 


011434 










HLT 


2 


;DATA ERROR 


011434 


104002 








EMT 


2 




011436 


104410 








SCOPEl 




; CHECK FOR LOOP AT CURRENT SPEED 


011440 


012777 


000010 


004622 




MOV 


«10,9DHBAR 


; RESTART TRANSMITTER 


011446 


105267 


004706 




3»: 


INCB 


RDATA 


lUPDATA EXPECTED DATA 


011452 


005302 








DEC 


R2 




011454 


001355 








BNE 


2% 




011456 


105067 


0046 7o 






CLRB 


RDATA 


; INITIALIZE EXPECTED 
iRECEIVED DATA 


011462 


005201 








INC 


Rl 


jUPOATA CHARACTER LENGTH 


011464 


005204 








INC 


R4 




011466 


00t367 


004670 






ASL 


BYTCNT 




011472 


005300 








DEC 


RO 




011474 


001325 








BNE 


It 




011476 


104400 
000004 
000020 






4$: 

LINE 

BITX 


SCOPE 
«LINE*1 
«BITX*8ITX 







011500 SDATA3 \LINE,\6ZTX 

: SINGLE LINE DATA TEST 

{TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 4 
.■LINE SPEED IS 9600 BAUD 

s CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
;T0 8 BITS 

:A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
:AT EACH CHARACTER LENGTH 



011500 



TS \XN.l,4$,l$ 



011500 012767 000340 166270 T45: MOV #340. PS 

011506 012767 000001 004610 MOV *1,IC0UNT 

011514 012767 011716 004576 MOV «4«, ESCAPE 

.IF N6 

011522 012767 011570 004572 MOV «lt.FREEZl 

.ENOC 

000046 XN-XN^l 



(DISABLE ALL INTERRUPTS 

J SET UP FOR 1 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 
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SEQ 56 



011530 012777 004000 004520 

011536 005004 

011540 012705 000004 

011544 012767 102000 004606 



HOV «BIT11.8DHSCR 

CLR R4 

nOV *4,R5 tLINE 

MOV «4*400*10000v,RDATA 



011720 



S0ATA3 \LINE.\BITX 



iMASTER CLEAR INTERFACE 
jFIRST CHARACTER LENGTH CODE (5 BITS) 
4 WILL BE TESTED 



SET EXPECTED LINE NUMBER 
AND VALID DATA FLAG 
EXPECTED DATA 



011552 


012700 


000004 






MOV 


«4,R0 


4CHARACTER LENGTHS 
UILL BE TESTED 


011556 


012701 


033500 






MOV 


«33500,91 


FIRST CHARACTER LENGTH -5 BITS.. 
LINE SPEED '9600 BAUD 


011562 


012767 


177740 


004572 




MOV 


* 40.BYTCNT 


40 CHARACTERS AT 5 BITS 


011570 


010577 


004462 




It: 


MOV 


R5.9DHSCR 


SELECT LINE 4 


011574 


016702 


004562 






MOV 


BYTCNT,R2 




011600 


00 5402 








NEG 


R? 




011602 


010177 


004454 






MOV 


Rl.SDHLPR 


SET LINE SPEED AND 
CHARACTER LENGTH 


011606 


012777 


016364 


004450 




MOV 


#TBUr . SDHBA 


ADDRESS OF TRANSMITTER 
.DATA BUFFER 


011614 


016777 


004542 


AAil AAA 

004444 




MOV 


BYTCNT.SDHBC 


400 (OCTAL) BYTES 
.WILL BE TRANSMITTED 


011622 


012777 


A AAA OA 

000020 


004440 




MOV 


420.8DHBAR 


[START TRANSMITTER 


011630 


105777 


AA M M O O 

004422 




2% : 


T** TO 

TSTB 


80HSCR 


(WAIT FOR DATA TO BE RECEIVED 


011634 


100375 








BPL 


21 




011636 


017703 


004416 






MOV 


S0HNRC.R3 


;GET RECEIVED DATA 


011642 


020^67 


AA JIC 4 ^ 






Cnr 


R3.RDATA 


;COMPER EXPECTED AND RECEIVED DATA 


011646 


001407 










3t 




011650 


005077 


A A A A a A 

004414 






CLH 


8DHBAR 


iSTOP TRANSMITTER 


011654 










HLT 


2 


:DATA ERROR 


011654 


104002 








cnT 


2 




011656 


* f\A A 4 A 

104410 








SCOPEl 


J CHECK FOR LOOP AT CURRENT SPEED 


011660 


012777 


000020 


004402 




MOV 


«20.8DHBAR 


; RESTART TRANSMITTER 


011666 


105267 


004466 




3*: 


INCB 


RDATA 


;UPOATA EXPECTED DATA 


Ullo IC 












R2 




011674 


001355 








BNE 


2» 




011676 


105067 


004456 






CLRB 


RDATA 


: INITIALIZE EXPECTED 
; RECEIVED DATA 


011702 


005201 








INC 


Rl 


;UPDATA CHARACTER LENGTH 


011704 


005204 








INC 


R4 




011706 


006367 


004450 






ASL 


BYTCNT 




011712 


005300 








DEC 


RO 




011714 


001325 








BNE 


1« 




011716 


104400 
000005 
000040 






41: 

LINE 

BITX 


SCOPE 
-LINE*1 
-BITX ♦BITX 







{SINGLE LINE DATA TEST 

: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 5 
iLINE SPEED IS 9600 BAUD 

i CHARACTER LENGTH UILL START AT 5 BITS AND BE INCREMENTED 

sTO 8 BITS 

;A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
;AT EACH CHARACTER LENGTH 



011720 TS \XN.1.4t,l» 

011720 012767 000340 166050 T46: MOV «340.PS 



s DISABLE ALL INTERRUPTS 
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011726 


012767 


000001 


004370 




MOV 


♦l.ICOliNT 


;SET UP FOR 1 ITERATIONS 


011734 


012767 


012136 


004356 


.IF N8 


MOV 
<1»> 


«4$. ESCAPE 


J SET UP TO ESCAPE TO NEXT TEST 


011742 


012767 
000047 


012010 


004352 


.ENOC 
XN-XN*1 


MOV 


♦1».FREEZ1 


sSET UP TO LOOP UITH DATA ; 3 


011750 


012777 


004000 


004300 




MOV 


4BIT11.S0HSCR 


; MASTER CLEAR INTERFACE 


011756 


005004 








CLR 


R4 


: FIRST CHARACTER LENGTH CODE (5 BITS) 


011760 


012705 


000005 






MOV 


#5.R5 sLINE 


5 WILL BE TESTED 


011764 


012767 


102400 


004366 




MOV 


«5*400*100000.R0ATA 


;SET L'aPECTED line NUMBER 
:ANO VALID DATA FLAG 
; EXPECTED DATA 


011772 


012700 


000004 






MOV 


«4,R0 


i4CHARACTER LENGTHS 
:WILL BE TESTED 


011776 


012701 


033500 






MOV 


«33500,R1 


sFIRST CHARACTER LENGTH -5 BITS,. 
:LINE SPEED '9600 BAUD 


012002 


012767 


177740 


004352 




MOV 


»-40.BYTCNT 


!40 CHARACTERS AT 5 BITS 


012010 


010577 


004242 




11: 


MOV 


R5,90HSCR 


s SELECT LINE 5 


012014 


016702 


004342 






MOV 


BYTCNT.R2 




012020 


005402 








NEG 


R2 




012022 


010177 


004234 






MOV 


Rl.SOHLPR 


5 SET LINE SPEED AND 
J CHARACTER LENGTH 


012026 


012777 


016364 


004230 




MOV 


«T3UF,80HBA 


; ADDRESS OF TRANSMITTER 
;DATA BUFFER 


012034 


016777 


004322 


004224 




MOV 


BYTCNT.SDHBC 


:400 (OCTAL) BYTES 
:UILL BE TRANSMITTED 


012042 


012777 


000040 


004220 




MOV 


«40.9DHBAR 


; START TRANSMITTER 


012050 


105777 


004202 




2*: 


TSTB 


90HSCR 


J WAIT FOR DATA TO BE RECEIVED 


012054 


100375 








BPL 


2$ 




012056 


017703 


004176 






MOV 


3DHNRC,R3 


iGET RECEIVED DATA 


012062 


020367 


004272 






CMP 


R3.RDATA 


iCOMPER EXPECTED AND RECEIVED DATA 


012066 


001407 








BEQ 


3$ 




012070 


005077 


004174 






CLR 


8DHBAR 


sSTOP TRANSMITTER 


012074 










HLT 


2 


:DATA ERROR 


012074 


104002 








EMT 


2 




012076 


104410 








SCOPEl 




J CHECK FOR LOOP AT CURRENT SPEED 


012100 


012777 


000040 


004162 




MOV 


«40.00HBAR 


:RESTART TRANSMITTER 


012106 


105267 


004246 




3$; 


INCB 


ROATA 


iUPDATA EXPECTED DATA 


012112 


005302 








DEC 


R2 




012114 


001355 








BNE 


2» 




012116 


105067 


004236 






CLRB 


RDATA 


{INITIALIZE EXPECTED 
: RECEIVED DATA 


012122 


005201 








INC 


Rl 


iUPDATA CHARACTER LEhilH 


012124 


005204 








INC 


R4 




012126 


006367 


004230 






ASL 


BYTCNT 




012132 


005300 








DEC 


RO 




012134 


001325 








BNE 


1$ 




012136 


104400 






4$: 


SCOPE 








000006 






Ll*iE=LINE*l 








000100 






BITX«BITX*BITX 







012140 SDATA3 \LINE.\BITX 

; SINGLE LINE DATA TEST 

: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 6 
:LINE SPEED IS 9600 BAUD 

{CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
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TO 8 BITS 

A BLOCK OF 400 CHARACTERS WILL BE TRANSfllTTED 
AT EACH CHARACTER LENGTH 



012140 








TS \XN,1.4$.1J 






012140 


012767 


000340 


165630 


T47: 




<^340,PS 




012146 


012767 


000001 


004150 




MOV 


*1 ICOUNT 


•SFT UP FOR 1 TTFDATTnWQ 
f 1 \jr run x XlCnnlxuriD 


012154 


012767 


012356 


004136 




MOV 


#4$. ESCAPE 


iSET UP TO ESCAPE TO NEXT TEST 










.IF NB 


<1$> 




012162 


012767 
000050 


012230 


004132 


.ENOC 
XN>XN«1 


MOV 


#1»,FREEZ1 


;SET UP TO LOOP UITH DATA j 3 


012170 


012777 


004000 


004060 




MOV 


«BIT11.8DHSCR 


! MASTER CLEAR INTERFACE 


012176 


005004 








CLR 


R4 


:FIRST CHARACTER LENGTH CODE (5 BITS) 


012200 


012705 


000006 






MOV 


#6.R5 iLINE 6 


UILL BE TESTED 


012204 


012767 


103000 


004146 




MOV 


«6*400*100000.RDATA 


:SET EXPECTED LINE NUMBER 
iANO VALID DATA FLAG 
sEXPECTED DATA 


012212 


012700 


000004 






MOV 


#4.R0 


:4CHARACTER LENGTHS 
:WILL BE TESTED 


012216 


012701 


033500 






MOV 


*33500.R1 


;FIRST CHARACTER LENGTH »5 BITS., 
{LINE SPEED '9600 BAUD 


012222 


012767 


177740 


004132 




MOV 


*-40.BYTCNT 


i40 CHARACTERS AT 5 BITS 


012230 


010577 


004022 




It : 


MOV 


R5,SDHSCR 


s SELECT LINE 6 


012234 


016702 


004122 






MOV 


BYTCNT.R2 




012240 


005402 








NEG 


R2 




012242 


010177 


004014 






MOV 


R1.3DHLPR 


;SET LINE SPEED AND 
: CHARACTER LENGTH 


012246 


012777 


016364 


004010 




nov 


«TBUF.9DHBA 


: ADDRESS OF TRANSMITTER 
sDATA BUFFER 


012254 


016777 


004102 


004004 




MOV 


BYTCNT.aOHBC 


S400 (OCTAL) BYTES 
iUILL BE TRANSMITTED 


012262 


012777 


000100 


004000 




MOV 


«100.SDHBAR 


.■START TRANSMITTER 


012270 


105777 


003762 




2$: 


TSTB 


90HSCR 


iUAIT FOR DATA TO BE RECEIVED 


012274 


100375 








BPL 


2t 




012276 


017703 


003756 






MOV 


S0HNRC.R3 


:GET RECEIVED DATA 


012302 


020367 


004052 






CMP 


R3.RDATA 


:COMPER EXPECTED AND RECEIVED DATA 


012306 


001407 








BEQ 


31 




012310 


005077 


003754 






CLR 


80WAR 


:STOP TRANSMITTER 


012314 










HLT 


2 


;DATA ERROR 


012314 


104002 








EMT 


2 




012316 


104410 








SCOPEl 




: CHECK FOR LOOP AT CLItRENT SPEED 


012320 


012777 


000100 


003742 




MOV 


*100.SDH6AR 


! RESTART TRANSMITTER 


01P326 


105267 


004026 




3$: 


INCB 


RDATA 


iUPDATA EXPECTED DATA 


012332 


005302 








DEC 


R2 




012334 


001355 








6NE 


2t 




012336 


105067 


004016 






CLRB 


RDATA 


J INITIALIZE EXPECTED 
: RECEIVED DATA 


012342 


005201 








INC 


Rl 


:UPDATA CHARACTER LENGTH 


012344 


005204 








INC 


R4 




012346 


006367 


004010 






ASL 


BYTCMT 




012352 


005300 








DEC 


RO 




012354 


001325 








BNE 


It 




012356 


104400 






4$: 


SCOPE 








000007 






LINE=LINE*1 








000200 






BITX=BITX*eiTX 
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012360 SDATA3 \LINE,\BITX 

{SINGLE LINE DATA TEST 

{TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 7 
sLINE SPEED IS 9600 BAUD 

{CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
{TO 8 BITS 

{A BLOCK OF 400 CHARACTERS MILL BE TRANSMITTED 
iAT EACH CHARACTER LENGTH 



012360 








TS \XN,1.4$.1$ 








012360 


012767 


AA AV M A 

000340 


165410 


T50: 


MOV 


*340,PS 


{DISABLE ALL INTERRUPTS 


012366 


012767 


AAAAA4 

000001 


AA VTVA 

003730 




MOV 


^liICOUNT 


{SET UP FOR 1 ITERATIONS 


012374 


A4 

012767 


A 4 

012576 


AA W 4 £ 

003716 




MOV 


M. M A Pf*AAnP 

Ml .ESCAPE 


{SET UP TO ESCAPE TO NEXT TEST 










.IF NB 


<ll> 








A 4 1JI A^ 

012402 


012767 


A4 CA 

012450 


AAV^ 4 1 

003712 


.ENOC 


MOV 


A.4 A fmPr94 


{SET UP TO LOOP WITH DATA ; 3 




AAAAC 4 

000051 






XN'XN*1 










012410 


012777 


0040 vO 


AAT^AA 




MOV 


VD IT 11 , BDHSCn 


{MASTER CLEAR INTERFACE 


012416 


AACAAil 








CLR 


Oil 

n4 


{FIRST CHARACTER LENGTH CODE (5 BITS) 


A 1 9A 

012420 




AAAAA7 






nov 


A7 DC 1 TUf 


7 WILL BE TESTED 


0124c4 


Ulc ' O/ 


1 ATilAA 


\AJA 1 CD 




nov 


A*7dfAAA^ 1 AAAAA DAATA 
ffr*<4UO*100000tnOn 1 n 






















SET EXPECTED LINE NUMBER 


















AND VALID DATA FLAG 


















EXPECTED DATA 


A1 OATO 
Ol c4 oc 


Al 37 AA 


AAAAAA 






nov 


AA DA 




4CHARACTER LENGTHS 


















WILL BE TESTED 


A1 


Al 07A1 








MOW 

nov 






FIRST CHARACTER LENGTH =5 BITS. . 


















■LINE SPEED -9600 BAUD 


Uic4*»c 


Al 37<i7 


1 777Aft 
iff (H\J 






nov 


w-4y ,DT 1 LN 1 




i40 CHARACTERS AT 5 BITS 


A1 3A^A 
Uic43U 


Al A«»77 






1» : 


nov 






SELECT LINE 7 


A1 OA^A 
01243«» 


Al ^7 A3 


AAT7A3 






nov 


DT ll.NI >Ke 






01240U 


















A1 OAtiO 
01240C 


Al Al 77 
UlUl f f 


AATR7A 






MAU 

nov 


D1 onui DO 
KX . WUnLr M 




iSET LINE SPEED AND 


















{CHARACTER LENGTH 


A1 OA£^C^ 


Al 3777 


Al ATAA 






MAW 

nov 


w 1 our , W/nDn 




[ADDRESS OF TRANSMITTER 


















•DATA Bl^FER 




Al A777 


OA ^fkfkO 






MAW 

now 


Dr ii.ni » of UnDU 




i400 (OCTAL) BYTES 


















{WILL BE TRANSMITTED 


A1 OKf\0 


Al 3777 


AAA3nn 






MAU 

nov 


vc W « WUnDHK 




[START TRANSMITTER 


Al pel A 


1 A^777 


OA7^A3 
WO J"lc 






TCTQ 
l9 ID 


onucro 




[UAIT FOR DATA TO BE RECEIVED 


Al OC1 « 


















A 4 pc « <: 


Al 77nT 


AAT«\TA 






nuv 






{GET RECEIVED DATA 




VC V^W f 


w 






CMP 


R'X DflATA 
n J y ni/n 1 A 


{COMPER EXPECTED AND RECEIVED DATA 


012526 


001407 








BEQ 


3t 






012530 


005077 


003534 






CLR 


SDHBAR 


{STOP TRANSMITTER 


012534 










W.T 


2 


iDATA ERROR 


012534 


104002 








EMT 


2 






012536 


104410 








SCOPEl 




{CHECK FOR LOOP AT CURRENT SPEED 


012540 


012777 


000200 


003522 




MOV 


0200. SDHBAR 


{RESTART TRANSMITTER 


012546 


105267 


003606 




3»: 


INCB 


ROATA 


{UPOATA EXPECTED DATA 


012552 


005302 








DEC 


R2 






0x2554 


001355 








BNE 


2> 






012556 


105067 


003576 






CLRB 


ROATA 


{INITIALIZE EXPECTED 
















{RECEIVED DATA 


012562 


005201 








INC 


Rl 


{UPDATA CHARACTER LENGTH 


012564 


005204 








INC 


R4 
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SEQ 60 



012566 006367 003570 
012572 005300 
012574 001325 
012576 104400 

000010 

000400 

012600 



ASL BYTCNT 
DEC RO 
BNE 1» 

4»: SCOPE 

LINE»LINE*1 

BITX-BITX»BITX 

S0ATA3 \LINE.\BITX 



! SINGLE LINE DATA TEST 

i TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 10 
;LINE SPEED IS 9600 BAUD 

; CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
sTO 8 BITS 

iA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
iAT EACH CHARACTER LENGTH 



012600 



TS \XN.1.4».1» 



012600 


012767 


000340 


165170 


T51: 


MOV 


«340,PS 


012606 


012767 


000001 


003510 




MOV 


♦l.ICOUNT 


0] 2614 


012767 


013U16 


003476 




MOV 


♦4 $ , ESCAPE 










.IF NB 


<!♦> 




012622 


012767 


012670 


003472 




MOV 


tflf.rREEZl 










.ENOC 








000052 






XN»XN*1 






012630 


012777 


004000 


003420 




MOV 


«BIT11.80HSCR 


012636 


005004 








CLR 


R4 


012640 


012705 


000010 






MOV 


«10.R5 :LINE 


012644 


012767 


104000 


003506 




MOV 


«10*400 * 100000 . ROATA 


012652 


012700 


000004 






MOV 


«4.R0 


012656 


012701 


033500 






MOV 


*33500.R1 


012662 


012767 


177740 


003472 




MOV 


♦-40. BYTCNT 


012670 


010577 


003362 




It: 


MOV 


R5.80HSCR 


012674 


016702 


003462 






MOV 


BYTCNT ,R2 


012700 


005402 








NEG 


R2 


012702 


010177 


003354 






HOV 


R1.0OHLPR 


012706 


012777 


016364 


003350 




MOV 


*TBUF.SOHBA 


012714 


016777 


003442 


003344 




MOV 


BYTCNT. BO»«C 


012722 


012777 


000400 


003340 




MOV 


M00.80H8AR 


012730 


105777 


003322 




2t: 


TSTB 


80HSCR 


012734 


100375 








BPL 


2t 


012736 


017703 


003316 






MOV 


90HNRC.RS 


012742 


020367 


003412 






CMP 


R3. ROATA 


012746 


001407 








BEQ 


3$ 


012750 


005077 


003314 






CLR 


SOHBAR 


012754 










HLT 


2 


012754 


104002 








EMT 


2 


012756 


104410 








SCOPEl 




012760 


012777 


000400 


003302 




MOV 


MOO, SOHBAR 


012766 


105267 


003366 




3»: 


INCB 


ROATA 



: DISABLE ALL INTERRUPTS 

J SET UP FOR 1 ITERATIONS 

:SET UP fO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



iMASTER CLEAR INTERFACE 
(FIRST CHARACTER LENGTH CODE (5 BITS) 
10 UILL BE TESTED 



(SET EXPECTED LINE NUMBER 
(AND VALID DATA FLAG 
(EXPECTED DATA 
S4CHARACTER LENGTHS 
UILL BE TESTED 

FIRST CHARACTER LENGTH «5 BITS., 
LINE SPEED -9600 BAUD 
40 CHARACTERS AT 5 BITS 
SELECT LINE 10 



(SET LUC SPEED AM) 

(CHARACTER LENGTH 

(ADDRESS OF TRANSHITTER 

(DATA BUFFER 

(400 (WTAL) BYTES 

sUr.L BE TRANSHITTED 

(START TRANSMITTER 

(WAIT FOR DATA TO BE RECEIVED 

(GET RECEIVED DATA 

(COMPER EXPECTED AND RECEIVED DATA 

(STOP TRANSMITTER 
(DATA ERROR 

(CHECK FOR LOOP AT CURRENT SPEED 
(RESTART TRANSMITTER 
(UPDATA EXPECTED DATA 
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SEQ 61 



012772 


005302 




DEC 


R2 


012774 


001355 




BNE 


2$ 


012776 


105067 


003356 


CLRB 


RDATA 


013002 


005201 




INC 


Rl 


013004 


005204 




INC 


R4 


013006 


006367 


003350 


ASL 


BYTCNT 


013012 


005300 




DEC 


RO 


013014 


001325 




BNE 


1* 


013016 


104400 




4): SCOPE 






000011 




LINE-LINE»1 






001000 




BITX-BITX*BITX 




013020 






SDATA3 \LJNE.\BITX 



! INITIALIZE EXPECTED 

iRECEIVED DATA 

tUPDATA CHARACTER LENGTH 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 11 
LINE SPEED IS 9600 BAUD 

CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
TO 8 BITS 

A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
AT EACH CHARACTER LENGTH 



013020 








TS \XN.1.4$,1» 






013020 


012767 


000340 


164 f DO 


T52! 


MOV 


«340,rS 


{DISABLE ALL INTERRUPTS 


013026 


012767 


000001 


003270 




MOV 


•l.ICOUNT 


iSET UP FOR 1 ITERATIONS 








006<:3o 


• ir no 


nuv 

<!♦> 


94 » ,coLRrc 


;5ET UP TO ESCAPE TO NEXT lEST 




Ulc f D f 








nuv 


919 ,rHtX.Cl. 


;9CI wr lU LlWr UITn DATA 




Qlc f f f 


AAAAAA 






nuv 




.MACTCD Pi cad TUTCDCAf^r 












CLR 


R4 


• FTBCT rUABAPTFD 1 PMItTM mnP f ^ RT' 
■ r xnd 1 UfWIVnCI CIV LCnuin i.UUC \.3 OX 


013060 


012705 


000011 






MOV 


«11.R5 :LINE 


11 UILL BE TESTED 


013064 


012767 


104400 


003266 




MOV 


«1 l*400t 100000 . RDATA 


>SET EXPECTED LINE NUMBER 
sANO VALID DATA FLAG 
1 EXPECTED DATA 


013072 


012700 


000004 






MOV 


♦4.R0 


<4CHARACTER LENGTHS 
sUILL BE TESTED 


013076 


012701 


033500 






MOV 


«33500.R1 


(FIRST CHARACTER LENGTH -5 BITS. . 
:LINE SPEED -9600 BAUD 


013102 


012767 


177740 


003252 




MOV 


•-40.BYTCNT 


i40 CHARACTERS AT 5 BITS 


013110 


010577 


003142 




1»: 


MOV 


RS.SDHSCR 


i SELECT LINE 11 


013114 


016702 


00Z242 






MOV 


BYTCNT. R2 




013120 


005402 








NEC 


R2 




013122 


010177 


003134 






MOV 


R1.9DHLPR 


;SET LINE SPEED AND 
: CHARACTER LENGTH 


013126 


012777 


016364 


003130 




MOV 


«TBUF.aDHBA 


; ADDRESS OF TRANSMITTER 
lOATA Bl^FER 


013134 


016777 


003222 


003124 




MOV 


BYTCNT.9DH6C 


;400 (OCTAL) BYTES 
iUILL BE TRANSMITTED 


013142 


012777 


001000 


003120 




MOV 


»1000.90H8AR 


J START TRANSMITTER 


013150 


105777 


003102 




2»: 


TSTB 


9DHSCR 


iUAIT FOR DATA TO BE RECEIVED 


013154 


100375 








BPL 


2» 




013156 


017703 


003076 






MOV 


90HNRC.R3 


iGET RECEIVED DATA 


013162 


020367 


003172 






CMP 


R3. RDATA 


iCOMPER EXPECTED AND RECEIVED DATA 


013166 


001407 








BEQ 


3$ 
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MACRO V04.00 27-JUN-85 12:59:01 PAGE 19 38 



SEQ 62 



013170 


005077 


003074 




CLR 


aOHBAR 


;STOP TRANSMITTER 


013174 








HLT 


2 


sDATA ERROR 


013174 


10^002 






EMT 


2 




013176 


104'HO 






SCOPEl 




: CHECK FOR LOOP AT CURRENT 


013200 


Oi;.777 


001000 


003062 


MOV 


#1000.SOHBAR 


jRESTART TRANSMITTER 


013206 


105267 


003146 


3»: 


INCB 


RDATA 


:UPDATA EXPECTED DATA 


013212 


005302 






DEC 


R2 




01321') 


001355 






BNE 


2t 




013216 


105067 


003136 




CLRB 


RDATA 


! INITIALIZE EXPECTED 
;RECEIVE0 DATA 


013222 


00S201 






INC 


Rl 


{UPDATA CHARACTER LENGTH 


013224 


005204 






INC 


R4 




013226 


006367 


003130 




ASL 


BYTCNT 




013232 


005300 






UEC 


RO 




013234 


001325 






BNE 


1$ 




013236 


104400 
000012 
002000 




4$: 

LINE 

BITX 


SCOPE 
'LINEtl 
-BITX*BITX 






013240 






SCAT A3 \LINE.\BITX 





SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 12 
LINE SPEED IS 9600 BAUD 

CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
TO 8 BITS 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
AT EACH CHARACTER LENGTH 



013240 








TS \XN.1.4*.1$ 




013240 


012767 


000340 


164530 


T53: 


MOV 


#340. PS 


013246 


012767 


000001 


003050 




MOV 


«1.IC0UNT 


013254 


012767 


013456 


003036 




MOV 


«4$. ESCAPE 










• IF N8 


<1»> 




013262 


012767 


013330 


003032 




MOV 


«1$,FREEZ1 










.ENDC 








G00054 






XN>XN*1 






013270 


012777 


004000 


002760 




MOV 


«BIT11.0OHSCR 


013276 


005004 








CLR 


R4 


013300 


012705 


000012 






MOV 


«12.R5 (LINE 


013304 


012767 


105000 


003046 




MOV 


«12*400* 100000 .ROATA 


013312 


012700 


000004 






MOV 


«4.R0 


013316 


012701 


033500 






MOV 


♦3S500.R1 


013322 


012767 


177740 


003032 




MOV 


♦-40. BYTCNT 


013330 


010577 


002722 




1): 


MOV 


R5.S0HSCR 


013334 


016702 


003022 






MOV 


BYTCNT. R2 


013340 


005402 








NEG 


R2 


013342 


0101/7 


00c"' 14 






MOV 


Rl.SDHLPR 


013346 


012777 


016364 


002710 




MOV 


«TBUF,SOHBA 


013354 


016777 


003002 


002704 




MOV 


BYTCNT, 80HBC 



; DISABLE ALL INTERRUPTS 

tSET UP FOR 1 ITERATIONS 

sSET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



: 3 



s MASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE C5 BITS) 
12 WILL BE TESTED 

{SET EXPECTED LINE NUnBE.7 
;AN0 VALID DATA FLAG 
{EXPECTED DATA 
t4CHARACTER LENGTHS 
iUILL BE TESTED 

{FIRST CHARACTER LENGTH *S BITS.. 
{LINE SPEED *9600 BAUD 
I 40 CHARACTERS AT 5 BITS 
(SELECT LINE 12 



(SET LINE SPEED AND 
i CHARACTER LENGTH 
{ADDRESS OF TRANSMITTER 
{DATA BUFFER 
{400 (OCTAL) BYTES 
{MILL BE TRANSMITTED 
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SEQ 63 



013362 


01P777 


002000 


002700 




MOV 


«2000.S0HBAR 


} START TRANSMITTER 


013370 


105777 


002662 




2*: 


TSTB 


80HSCR 


:UAIT FOR DATA TO BE RECEIVED 


013374 


100375 








BPL 


2* 


013376 


017703 


002656 






MOV 


SDHNRC.R3 


:GET RECEIVED DATA 


013402 


020367 


002752 






CMP 


R3.RDATA 


iCOMPER EXPECTED AND RECEIVED DATA 


013406 


001407 








BEQ 


3$ 


013410 


005077 


002654 






CLR 


80HBAR 


:STOP TRANSMITTER 


013414 










HLT 


2 


sOATA ERROR 


013414 


104002 








EMT 


2 




013416 


104410 








SCOPEl 




} CHECK FOR LOOP AT CURRENT SPEED 


013420 


012777 


002000 


002642 




MOV 


«2000,80H6AR 


jRESTART TRANSMITTER 


013426 


10S267 


002726 




3»: 


INCB 


ROATA 


;UPDATA EXPECTED DATA 


013432 


005302 








DEC 


R2 


013434 


001355 








BNE 


2$ 




013436 


105067 


002716 






CLR6 


ROATA 


; INITIALIZE EXPECTED 
; RECEIVED DATA 


013442 


005201 








INC 


Rl 


:UPOATA CHARACTER LENGTH 


013444 


005204 








INC 


R4 


013446 


006367 


002710 






ASL 


BYTCNT 




013452 


005300 








DEC 


RO 




013454 


001325 








BNE 


1« 




013456 


10440C 
000013 
004000 






4$: 

LINE 

BITX 


SCOPE 
«LINE*1 
«BITX*BITX 







013460 



SDATA3 \LINE.\BITX 



013460 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 COCTAL) CHARACTERS ON LINE 13 
LINE SPEED IS 9600 BAIX) 

CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
TO 8 BITS 

A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED 
AT EACH CHARACTER LENGTH 



TS \XN.1.4$.1» 



013460 


012767 


000340 


164310 


T54: 


MOV 


♦340. PS 


013466 


012767 


000001 


''02630 




MOV 


♦l.ICGUNT 


013474 


012767 


013676 


&02616 




MOV 


M». ESCAPE 










.IF NB 


<1»> 




013502 


012767 


013550 


002612 




nov 


*1».FREEZ1 










.ENDC 








000055 






XN-XN»1 






013510 


012777 


004000 


002540 




nov 


«BZT11,80HSCR 


013516 


005004 








CLR 


R4 


013520 


012705 


000013 






nov 


*13.R5 iLINE 


013524 


012767 


105400 


002626 




my 


•13*400« 100000 . ROATA 


013532 


012700 


000004 






HOV 


#4.R0 


013536 


012701 


033500 






HOV 


♦33500. Rl 


013542 


012767 


177740 


002612 




MOV 


♦-40. BYTCNT 


013550 


010577 


002502 




1<: 


MOV 


R5,90HSCR 


013554 


016702 


002602 






MOV 


BYTCNT. R2 


013560 


005402 








NEC 


R2 



.•DISABLE ALL INTERRUPTS 

iSET UP FOR 1 ITERATIONS 

.-SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



tdASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS) 
13 WILL BE TESTED 



sSET EXPECTED LINE NUMBER 
I AND VALID DATA FLAG 
t EXPECTED DATA 
J4CHARACTER LENGTHS 
WILL BE TESTED 

FIRST CHARACTER LENGTH -5 BITS.. 
LINE SPEED '9600 BAUD 
40 CHARACTERS AT 5 BITS 
SELECT LINE 13 
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SEQ 64 



013562 


010177 


002474 






MOV 


R1.8DHLPR 


:SET LINE SPEED AND 
i CHARACTER LENGTH 


013566 


012777 


016364 


002470 




MOV 


#TBUF , SOHBA 


: ADDRESS OF TRANSMITTER 
;OATA BUFFER 


013574 


016777 


002562 


002464 




MOV 


BYTCNT.aOHBC 


;400 (OCTAL) BYTES 
:WILL BE TRANSMITTED 


013602 


012777 


004000 


002460 




MOV 


»4000,8DHBAR 


.•START TRANSMITTER 


013610 


105777 


002442 




21: 


TSTB 


8DHSCR 


(WAIT FOR DATA TO BE RECEIVED 


013614 


100375 








BPL 


2t 




013616 


017703 


002436 






MOV 


90HNRC.R3 


;GET RECEIVED DATA 


013622 


020367 


002532 






CMP 


R3,RDATA 


iCOMPER EXPECTED AND RECEIVED DATA 


013626 


001407 








BEQ 


31 




013630 


005077 


002434 






CLR 


80H6AR 


sSTOP TRANSMITTER 


013634 










HLT 


2 


sDATA ERROR 


013634 


104002 








EMT 


2 




013636 


104410 








SCOPEl 




s CHECK FOR LOOP AT CURRENT SPEED 


013640 


012777 


004000 


002422 




MOV 


«4000.80H6AR 


sRESTART TRANSMITTER 


013646 


105267 


002506 




3$: 


INCB 


ROATA 


:UPDATA EXPECTED DATA 


013652 


005302 








DEC 


R? 




013654 


001355 








BNE 


2) 




013656 


105067 


002476 






CLRB 


RDATA 


s INITIALIZE EXPECTED 












; RECEIVED DATA 


013662 


005201 








INC 


Rl 


iUPOATA CHARACTER LENGTH 


013664 


005204 








INC 


R4 




013666 


006367 


002470 






ASL 


BYTCNT 




013672 


005300 








DEC 


RO 




013674 


001325 








BNE 


1$ 




013676 


104400 
000014 
010000 






4*: 

LINE 

BI7X 


SCOPE 
•LINE*1 
■BITX»BITX 







013700 



S0ATA3 \LINE.\BITX 



i SINGLE LINE DATA TEST 

i TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 14 
LINE SPEED IS 9600 BAUD 

CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
TO 8 BITS 

A BLOCK OF 400 CHARACTERS UILL BE TRANSHITTEO 
AT EACH CHARACTER LENGTH 



013700 
015700 
013706 
013714 



013730 
013736 
013740 
013744 



012767 000340 164070 
012767 000001 002410 
012767 014116 002376 



013722 012767 013770 002372 



000056 
012777 
005004 
012705 
012767 



004000 002320 
000014 

106000 002406 



013752 012700 000004 



TS \XN.1.4$.l$ 

T55: MOV 
NOV 
NOV 

.IF NB <1»> 
MOV 

.ENOC 
XN-XN*1 

MOV 
CLR 
MOV 
MOV 



MOV 



«340.PS 

•l.ICOUNT 
*4*. ESCAPE 

*1).FREE21 



{DISABLE ALL INTERRUPTS 

(SET UP FOR 1 ITERATIONS 

tSET W» TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP UITH DATA 



WITH .BOHSCR :MASTER CLEAR INTERFACE 

R4 tPIRST CHARACTER LENGTH CODE (S BITS) 

«14.RS (LINE 14 UILL BE TESTED 

«14*400 » 100000 . ROATA 

.SET EXPECTED LINE NUMBER 
sANO VALID DATA FLAG 
{EXPECTED DATA 
«4.R0 S4CHARACTER LENGTHS 

I UILL BE TESTED 
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SEQ 65 



013756 


012701 


033500 






MOV 


«33500.R1 


wX O f DC 


01 37H7 


1 777Art 
J f f f*»U 






Mnw 

nov 


•-40 .BYTCNT 


013770 


010577 


002262 




1«: 


MOV 


RS.SOHSCR 












nov 


BY TCNT ,K2 


014000 


005402 








NEG 


R2 




ftl ftl 77 








MOW 

nuv 


Kl , BUHLrK 


014006 


012777 


016364 


002250 




MOV 


*TBUF,SOHBA 


014014 


016777 


002342 


002244 




MOV 


BYTCNT.aOHBC 


014022 


012777 


010000 


002240 




MOV 


*10000,80HBAR 


014030 


105777 


002222 




2$: 


TSTB 


80HSCR 


014034 


100375 








BPL 


2) 


014036 


017703 


002216 






MOV 


80HNRC.R3 


014042 


020367 


002312 






CMP 


R3,R0ATA 


014046 


001407 








BEQ 


3) 


014050 


005077 


002214 






CLR 


80HBAR 


014054 










HLT 


2 


014054 


104002 








EMT 


2 


014056 


104410 








SCOPEl 




014060 


013777 

VXC til 


VX WW 


009909 




Hn\i 
nuv 


vxUvUU t vUnDMN 


014066 


105267 


002266 




3»: 


ZNCB 


RDATA 


014072 


00S302 








DEC 


R2 


014074 


001355 








BNE 


21 


014076 


105067 


002256 






CLRB 


RDATA 


014102 


005201 








INC 


Rl 


014104 


005204 








INC 


R4 


014106 


006367 


002250 






ASL 


BYTCNT 


014112 


005300 








DEC 


RO 


014114 


001325 








BNE 


1) 


014116 


104400 






4t: 


SCOPE 






000015 






LINE-LINE*1 






020000 






BITX-BITX*BITX 




014120 








S0ATA3 


\LINE.\BITX 



FIRST CHARACTER L.NGTH -5 BITS., 
LINE SPEED -9600 BAUD 
40 CHARACTERS AT 5 BITS 
SELECT LINE 14 



iSET LINE SPEED AND 

J CHARACTER LENGTH 

; ADDRESS OF TRANSMITTER 

sDATA BUFFER 

j400 (OCTAL) BYTES 

sUILL BE TRANSMITTED 

{START TRANSMITTER 

;UAIT FOR DATA TO BE RECEIVED 

;GET RECEIVED DATA 

;COMPER EXPECTED AND RECEIVED DATA 

;STOP TRANSMITTER 
:OATA ERROR 

: CHECK FOR LOOP AT CURRENT SPEED 
(RESTART TRANSMITTER 
sUPDATA EXPECTED DATA 



; INITIALIZE EXPECTED 

{RECEIVED DATA 

tUPOATA CHARACTER LENGTH 



014120 
014120 
014126 
014134 



012767 000340 163650 
012767 000001 002170 
012767 014336 002156 



014142 012767 014210 002152 



014150 
014156 
014160 



000057 
012777 
005004 
012705 



004000 002100 
000015 



(SINGLE LINE DATA TEST 

I TRANSMIT A BLOCK OF 400 (CCTAL) CHARACTERS ON LINE 15 
(LINE SPEED IS 9600 BAUD 

(CHARACTER LENGTH UILL START AT 5 BITS AND BE INCREMENTED 
:T0 8 BITS 

(A BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
(AT EACH CHARACTER LENGTH 



TS \XN,1.4».1I 
T56: MOV 
MOV 
MOV 

•IF NB <1»> 
MOV 

• ENDC 
XN-XN*1 

MOV 
CLR 

nov 



*i40.PS 
♦l.ICOUNT 
♦4*. ESCAPE 

♦1».FREEZ1 



MIT11.80HSCR 
R4 

♦15. R5 



(DISABLE ALL INTERRUPTS 

(SET UP FOR 1 ITERATIONS 

(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(MASTER CLEAR INTERFACE 
(FIRST CHARACTER LENGTH CODE (5 BITS) 
(LINE 15 UILL BE TESTED 



QZOhF CO 
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SEQ 66 



014164 


012767 


106400 


002166 




nov 


•15*400* lOOOOC 


014172 


012700 


000004 






lOV 


•4.R0 


014176 


012701 


033500 






MOV 


433500. Rl 


014202 


012767 


177740 


002152 




MOV 


•-40.BYTCNT 


0142 10 


A4 AC 

010577 


002042 




It : 


nov 


DC nnuc^D 

. SDHSCn 


014214 


016702 


002142 






MOV 


BYTCNT.R2 


f\t A'9 

014220 


AACA A*^ 

005402 








Neb 


R2 


014222 


010177 


002034 






MOV 


Rl.ODHLPR 


014226 


012777 


016364 


002030 




MOV 


•TBU^'.SOHBA 


014234 


016777 


002122 


002024 




MOV 


BYTCNT.aOHBC 


014242 


012777 


020000 


002020 




MOV 


«20000.90HBAR 


014250 


105777 


002002 




2t: 


TSTB 


90HSCR 


014254 


100375 








BPL 


Zt 


014256 


017703 


001776 






MOV 


S0HNRC.R3 


014262 


020367 


002072 






CMP 


R3.RDATA 


014266 


001407 








BEQ 


3t 


014270 


005077 


001774 






CLR 


aOHBAR 


014274 










HLT 


2 


014274 


104002 








EMT 


2 


014276 


104410 








SCOPE 1 




014300 


012777 


020000 


001762 




MOV 


»20000.90HBAR 










T t « 

99 t 




OnAT A 
nUn 1 n 


014312 


005302 








DEC 


R2 


014314 


001355 








BNE 


2» 


014316 


105067 


002036 






CLRB 


RDATA 


014322 


005201 








INC 


Rl 


014324 


005204 








INC 


R4 


014326 


006367 


002030 






ASL 


BYTCNT 


014332 


005300 








DEC 


RO 


014334 


001325 








BNE 


1» 


014336 


104400 






4*: 


SCOPE 






000016 






LINE 


•LINE* I 






040000 






BITX 


•BITX»BITX 





014340 



SDATA3 \LINE.\BITX 



SET EXPECTED LINE NUMBER 
AND VALID DATA FLAG 
EXPECTED DATA 
4CHARACTER LENGTHS 
HILL BE TESTED 

FIRST CHARACTER LENGTH -5 BITS,. 
LINE SPEED -9600 BAUD 
40 CHARACTERS AT 5 BITS 
SELECT LINE 15 



SET LINE SPEED AND 

CHARACTER LENGTH 

ADDRESS OF TRANSMITTER 

DATA BUFFER 

400 (OCTAL) BYTES 

WILL BE TRANSMITTED 

START TRANSMITTER 

UAIT FOR DATA TO BE RECEIVED 

GET RECEIVED DATA 

COMPER EXPECTED AND RECEIVED DATA 

STOP TRANSMITTER 
DATA ERROR 

CHECK FOR LOOP AT CURRENT SPEED 
RESTART TRANSMITTER 
UPDATA EXPECTED DATA 



:INITIALIZE EXPECTED 

•.RECEIVED DATA 

;UPDATA CHARACTER LENGTH 



:SINGLE LINE DATA TEST 

i TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 16 
(LINE SPEED IS 9600 BAUD 

i CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
:TG 8 BITS 

iA BLOCK OF 400 CHARACTERS UILL BE TRANSMITTED 
sAT EACH CHARACTER LENGTH 



014340 
014340 
014346 
014354 



012767 
012767 
012767 



000340 
000001 
014556 



163430 
001750 
001736 



TS \XN.l,4».l» 

T57: MOV 
MOV 
MOV 

.IF NB <1»> 



♦340, PS 
•l.ICOUNT 
«4*. ESCAPE 



J DISABLE ALL INTERRUPTS 

sSET UP FOR 1 ITERATIONS 

I SET UP TO ESCAPE TO NEXT TEST 



9 


HACRO 


V04.00 


27-JUN-85 


12:59:01 PAGE 


19-43 


SEQ 


014362 


012767 


014430 


001732 




MOV 


nt.TREEZl 


:SET UP TO LOOP WITH DATA s 3 










.CNOC 










000060 






XN"XN» 1 








014S70 


012777 


004000 


001660 




MOV 


*BIT11,80HSCR 


;MASTER CLEAR INTERFACE 


014576 


005004 








CLR 


R4 


(FIRST CHARACTER LENGTH CODE (5 BITS) 


014400 


0127C5 


000016 






MOV 


«16.R5 :LINE 


16 WILL BE TESTED 


014404 


012767 


107000 


001746 




MOV 


«16*400* 100000. ROATA 


















:SET EXPECTED LINE NUMBER 
















lANO VALID DATA FLAG 
















jEXPECTEO DATA 


014412 


012700 


000004 






MOV 


#4.R0 


S4CHARACTER LENGTHS 
















;WILL BE TESTED 


014416 


012701 


033500 






MOV 


«33500.R1 


;FIRST CHARACTER LENGTH -5 BITS,. 
















sLINE SPEED -9600 BAUD 


014422 


012767 


177740 


001732 




MOV 


* 40.BYTCNT 


(40 CHARACTERS AT 5 BITS 


014430 


010577 


001622 




1) : 


MOV 


R5,80H5CR 


: SELECT LINE 16 


014434 


016702 


001722 






MOV 


BYTCNT.R2 




014440 


005402 








NEG 


R2 




014442 


010177 


001614 






MOV 


Rl.SDHLPR 


sSET LINE SPEED AND 
















: CHARACTER LENGTH 


014446 


012777 


016364 


001610 




MOV 


«TBUF.80HBA 


;ADDRESS OF TRANSMITTER 
















:DATA BUFFER 


014454 


016777 


001702 


001604 




MOV 


BYTCNT.80HBC 


!400 (OCTAL) BYTES 
















:UILL BE TRANSMITTED 


014462 


012777 


040000 


001600 




MOV 


«40000.8DHBAR 


; START TRANSMITTER 


014470 


105777 


001562 




2t : 


TSTB 


80HSCR 


sUAIT FOR DATA TO BE RECEIVED 


014474 


100375 








am 

BPL 


2» 




014476 


017703 


001556 






MOV 


80HNRC.R3 


:GET RECEIVED DATA 


014502 


020367 


001652 






CMP 


R3,RDATA 


iCOMPER EXPECTED AND RECEIVED DATA 


014506 


001407 








BEQ 


3* 




014510 


005077 


001554 






CLR 


80HBAR 


J STOP TRANSMITTER 


014514 










HLT 


2 


:DATA ERROR 


014514 


104002 








EMT 


2 




014516 


104410 








SCOPEl 




: CHECK FOR LOOP AT CURRENT SPEED 


014520 


012777 


040000 


001542 




MOV 


«40000.8DHBAR 


;RE5TART TRANSMITTER 


014526 


105267 


001626 




5* : 


INCB 


ROATA 


iUPDATA EXPECTED DATA 


014532 


005302 








DEC 


R2 




014534 


001355 








oNc. 


2< 




014536 


105067 


001616 






ft no 

CLKB 


RDATA 


} INITIALIZE EXPECTED 
















{RECEIVED DATA 


014542 


005201 








INC 


Rl 


tUPOATA CHARACTER LENGTH 


014544 


005204 








INC 


R4 




014546 


006367 


001610 






ASL 


BYTCNT 




014552 


005300 








DEC 


RO 




014554 


001325 








BNE 


1» 




014556 


104400 






4$: 


SCOPE 








000017 






LINE»LINE*1 








100000 






BITX>BITX»BITX 






014560 








S0ATA3 


\LINE.\BITX 





67 



SINGLE LINE DATA TEST 

TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 17 
LINE SPEED IS 9600 BAUD 

CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED 
TO 8 BITS 

A BLOCK OF 400 CHARACTERS MILL BE TRANSMITTED 
AT EACH CHARACTER LENGTH 
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014560 
014560 
014566 
014574 



012767 000340 163210 T60: 



TS \XN.1.4».1» 



012767 000001 00153C 
012767 014776 001516 



014602 012767 014650 001512 
000061 

014610 012777 004000 001440 

014616 005004 

014620 012705 000017 

014624 012767 107400 001526 



MOV 



MOV 
MOV 
.ir NB <1»> 
MOV 

.ENOC 
XN>XN>1 

MOV 
CLR 
MOV 
MOV 



#340. PS 
«1.IC0UNT 
♦4$, ESCAPE 

«1*.FREEZ1 



«*)IT11,S0HSCR 
F4 

n7.R5 ;l: 
«1 7*400* 100000, R0A1 





01 9T%t\ 

Sfxc 1 w 










033500 






019767 


177740 


001512 


014650 


010577 


001402 




014654 


016702 


001502 




014660 


005402 






014662 


010177 


001374 




014666 


012777 


016364 


001370 


014674 


016777 


001462 


001364 


014702 


012777 


100000 


001360 


014710 


105777 


001342 




014714 


100375 






014716 


017703 


001336 




014722 


020367 


001432 




014726 


001407 






014730 


005077 


001334 




014734 








014734 


104002 






014736 


104410 






014740 


012777 


100000 


001322 


014746 


105267 


001406 




014752 


005302 






014754 


001355 






014756 


105067 


001376 




014762 


005201 






014764 


005204 






014766 


006367 


001370 




014772 


005300 






014774 


001325 






014776 


104400 








000020 








000000 








000000 









MOV 


M RO 




MOV 


A33500 Rl 




MOV 


A-40 BYTCNT 


It • 

XT* 


MOV 


RS.SDHSCR 




MOV 


BYTCNT R2 




NEG 

1 «W VP 


R2 




MOV 


Rl SDHLPR 




MOV 


«TBUF.8DHBA 




MOV 


BYTCNT.SDHBC 




MOV 


#100000. SOHBAR 


2* : 


TSTB 


80HSCR 




BPL 


2> 




MOV 


30HNRC.R3 




CMP 


RS.RDATA 




BEQ 


31 




CLR 


80HBAR 




HLT 


2 




EMT 


2 




SCOPEl 






MOV 


nOOOOO.SDHBAR 


3»: 


INCB 


ROATA 




DEC 


R2 




BNE 


2» 




CLRB 


ROATA 




INC 


Rl 




INC 


R4 




ASL 


BYTCNT 




DEC 


RO 




BNE 


1* 


4$: 


SCOPE 




LINE 


-LINE*1 




BITX 


>BITX«BITX 





XDATA-O 



bEQ 68 



tOISABLE ALL INTERRUPTS 

I SET UP FOR 1 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

sSET UP TO LOOP WITH DATA ; 3 



s MASTER CLEAR INTERFACE 
sFIRST CHARACTER LENGTH CODE (5 BITS) 
17 WILL BE TESTED 

sSET EXPECTED LINE NUMBER 
tANO VALID DATA FLAG 
{EXPECTED DATA 
;4CHARACTER LENGTHS 
;UILL BE TESTED 

jFIRST CHARACTER LENGTH =5 BITS.. 
:LINE SPEED -9600 BAUD 
:40 CHARACTERS AT 5 BITS 
(SELECT LINE 17 



;SET LINE SPEED AND 

{CHARACTER LENGTH 

: ADDRESS OF TRANSMITTER 

;OATA BUFFER 

:400 (OCTAL) BYTES 

iUILL BE TRANSMITTED 

; START TRANSMITTER 

:UAIT FOR DATA TO BE RECEIVED 

{GET RECEIVED DATA 

-.COMPER EXPECTED AND RECEIVED DATA 

:STOP TRANSMITTER 
:OATA ERROR 

: CHECK FOR LOOP AT CURRENT SPEED 
: RESTART TRANSMITTER 
;UPOATA EXPECTED DATA 



! INITIALIZE EXPECTED 

: RECEIVED DATA 

:UPDATA CHARACTER LENGTH 
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SEQ 69 



1 

2 015000 



.EOP 



t/BEGIN/ 



END OF PASS 
TYPE NAME OF TEST 
UPDATE PASS COUNT 
CHECK FOR EXIT TO ACT- 
RESTART TEST 



11 



015000 


104401 






EOP: 


TYPE 




[TYPE NAME OF TEST 






015002 


017347 








MEPASS 










015004 


005067 


001344 






CLR 


LAST 


! CLEAR LAST ERROR PC 






02 5010 


005067 


001274 






CLR 


ERRFLG 


; CLEAR ERROR FLAG 






015014 


005267 


001272 






INC 


PASCNT 


! UPDATE PASS COUNT 






015020 


005767 


163756 






TST 


LIGHTS 


: ARE UE USING LIGHTS? 




4 


015024 


001005 








BNE 


2$ 


s BRANCH IF UE ARE 




6 


015026 


104401 








TYPE 




: TYPE PASCOUNT MESSAGE 




5 


015030 


017362 








PAST XT 






• 


5 


015032 


104402 








OCTASC 




1 PRINT PASSCOUNT 




4 


015034 


015072 








PASARG 










015036 


000403 








BR 


3) 


: CONTINUE 




4 


015040 








2$: 










4 


015040 


016767 


001246 


163734 




nov 


PASCNT. LIGHTS 


iOISPLAf PASS COUNT 
























M 

^ 


015046 


013701 


000042 






MOV 


9«42,R1 


sCHECK FOR ACT-11 OR DDP 






015052 


001405 








BEQ 


RESTRT 


:IF NOT. CONTINUE TESTING 








VV VVv J 
















015056 


004711 






LOGICAL 




JSR PC.CRl) 








015060 


000240 








NOP 










015062 


000240 








NOP 










015064 


000240 








NOP 










015066 


000167 


164214 




RESTRT: 


JHP 


BEGIN 








015072 


000001 






PASARG: 


.WORD 


1 


5 PARAMEff W TO PRINT PASSCOUNT 




5 


015074 


006 


002 






.BYTE 


6.2 






5 


015076 


016312 








.UORO 


PASCNT 






5 


015100 








.SCOPE 






















s CHECK 


FOR LOOP ON CURRENT TEST 




m 


3 












: CHECK 


FOR ITERATION SUPPRESSION 






015100 


032777 


002000 


163672 


SCOPER: 


BIT 


•SUIO.SSUR 






4 


015106 


001030 








BNE 


4» 








015110 


032777 


040000 


163662 


1*: 


BIT 


«SU14.SSUR 






4 


015116 


001021 








BNE 


3) 








015120 


032777 


004000 


163652 




BIT 


«SU11.8SUR 






4 


015126 


001006 








BNE 


2* 








015130 


005267 


001172 






INC 


LPCNT 








015134 


026767 


001166 


001162 




CMP 


LPCNT.ICOUNT 








015142 


001007 








BNE 


31 








015144 


005067 


001156 




2»: 


CLR 


LPCNT 








015150 


005067 


001134 






CLR 


ERRFLG 








015154 


011667 


001136 






MOV 


(SP}.RETRN 








015160 


000002 








RTI 










015162 


016716 


001130 




3t: 


MOV 


RETRN.CSP) 








015166 


000002 








RTI 










015170 


005767 


001114 




4$: 


TST 


ERRFLG 








015174 


001745 








BEQ 


1$ 









;4 
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015176 
4 015200 



015200 
015206 

015210 
015214 



000762 



032777 
001402 
016716 
000002 



.SCOP I 



BR 



2) 



: CHECK FOR FREEZE ON CURRENT DATA 



001000 
001106 



163572 



SCOPIR: BIT 
BEQ 
HOV 

1»: RTI 



«SU09.8SUR 
It 

FREEZl.(SP) 
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015216 








.ERROR 
















{ERROR 


HANDLER 


015216 


032777 


020000 


163554 


ERRORS: 


BIT 


«SU13,SSUR 


015224 


0010S5 








BNE 


HALTS 


015226 


021667 


001122 






CMP 


CSP).LAST 


015232 


001404 








BEQ 


1) 


015234 


011667 


001114 






HOV 


(SP),LAST 


015240 


005067 


001044 






CLR 


ERRFLG 


O; 5244 


104406 






It: 


SAV05P 




015246 


011605 








MOV 


(SP),R5 


015250 


162705 


000002 






SUB 


«2.R5 


015254 


011504 








MOV 


(R5),R4 


015256 


006304 








ASL 


R4 


015260 


006304 








ASL 


R4 


015262 


042704 


177001 






BIG 


#177001, R4 


015266 


062704 


017502 






ADD 


*ERRTAB,R4 


015272 


012467 


000040 






MOV 


(R4)f, ERRMSG 


015276 


011467 


000052 






MOV 


CR4). OATABP 


015302 


005767 


001002 






TST 


tRRFLG 


015306 


001403 








BEQ 


TYPMSG 


015310 


005767 


000040 






TSl 


OATABP 


015314 


001011 








BNE 


TYPDAT 


015316 


104401 






TYPMSG : 


TYPE 




015320 


017257 








MCRLF 




015322 


104402 








OCTASC 




015324 


015422 








ERTABO 




015326 


012767 


000001 


000754 




MOV 


«1. ERRFLG 


015334 


104401 








TYPE 




015336 


000000 






ERRMSG : 


0 




015340 


005767 


000010 




TYPDAT : 


TST 


OATABP 


015344 


001404 








BEQ 


RESREG 


015346 


104401 








TYPE 




015350 


017257 








MCRLF 




015352 


104402 








OCTASC 




015354 


000000 






OATABP : 


0 




015356 


104407 






RESREG: 


RES05 




015360 


005777 


163414 




HALTS: 


TST 


8SWR 


015364 


100005 








BPL 


EXITER 


015366 


010046 








PUSHRO 




015370 


016600 


000002 






MOV 


2(SP),R0 


015374 


000000 








HALT 




015376 


012600 








POPRO 




015400 


005267 


000710 




EXITER : 


INC 


ERRCNT 


015404 


032777 


002000 


163366 




BIT 


<SU10,8SUR 


015412 


001402 








BEQ 


It 


015414 


016716 


000700 






MOV 


ESCAPE, (SP) 


015420 


000002 






1$: 


RTI 




015422 


000001 






ERTABO: 


1 




015424 


006 


002 






.BYTE 


6,2 


015426 


016346 








SAVPC 





SEQ 71 



I 
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015430 



015430 
015432 
015436 
015442 
015444 
015450 
015454 
015460 
2 015462 



.TRPSRV 



TRAP DISPATCH SERVICE 

ARGUMENT OF TRAP IS EXTRwCTEO 

AND USED AS OFFSET TO OBTAIN POINTER 

TO SELECTED SUBROUTINE 



011646 

162716 000002 
017616 000000 
006316 

042716 177001 
062716 017422 
017616 000000 
000136 



RPSRV: MOV 
SUB 
MOV 

TRPOK: ASL 
BIC 
ADD 
MOV 
JMP 

.SAVREG 



(SP).-(SP) 
#2.(SP) 
a(SP).(SP) 
(SP) 

*177001.(SP) 
OTRPTAB.(SP) 
8(SP),(SP) 
8(SP)* 



;GET PC OF RETURN 
«PC OF TRAP 
GET TRP 

MULTIPLY TRAP ARG BY 2 
CLEAR UNWANTED BITS 
POINTER TO SUBROUTINE ADDRESS 
SUBROUTINE ADDRESS 
GO TO SUBROUTINE 



015462 016667 00^004 000656 SV05P: 



;SAVE PC OF TEST THAT FAILED AND R0-R5 
MOV 4(SP).SAVPC 
:SAVE R0-R5 



015470 
01S474 
015500 
01SS04 
015510 
015514 
015520 
3 015522 



015522 
015526 
015532 
015536 
015542 
015546 
015552 



010567 
010467 
010367 
010267 
010167 
010067 
000002 



016700 
016701 
016702 
016703 
016704 
016705 
000002 



000646 
000640 
000632 
000624 
000616 
000610 



000602 
000600 
000576 
000574 
000572 
000570 



SV05: 



.RESREG 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



R5.SAVR5 
R4.SAVR4 
R3,SAVR3 
R2.SAVR2 
Rl.SAVRl 
RO.SAVRO 



{RESTORE RO-RS 



RS05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



SAVRO.RO 
SAVRl.Rl 
SAVR2.R2 
SAVR3.R3 
SAVR4.R4 
SAVR5.R5 



CZOHF CO 



MACRO V04.00 27-JUN-85 12:59:01 PAGE 23 



1 015554 .TYPER 



5 TELETYPE OUTPUT ROUTINE 





A1 7t,f\K 


AAAAAA 






nuv 


tSf CD 




UOc r lO 


AAAAAO 






nUU 


AO ^ CD 


015564 


105777 


000462 




It: 


TSTB 


8TPCSR 


015570 


100375 








BPL 


1) 


015572 


105715 








TSTB 


(R5) 


015574 


001001 








BNE 


2) 




AAAAAO 
\J\JSJ\J\JC 








DTT 




\J 1 DO V^V^ 


1 1 0^77 
i XcD ( r 






cv : 


nuvD 


V, KD y + t H 1 rUan 




AAA7A7 








RD 




VlDDvO 




























VX Vw 


01 Ififn 
1 DO f 


000000 
www 


000006 

WW WW 


INSTRG • 




fitrcp') Men 






000009 






ADO 












TNSTRl • 
x*«w 1 nx « 


TYPE 






AAAAAA 

vv w w 






1 1 • 


V 














MOV 

• »V¥ 


ATNRUF R4 


VX Jv^V 


012703 

VXC ■ 


000007 

W VV V • 






MOV 


07 RS 




105777 

XV J V ■ ■ 


000406 

vvv^ w 




IS ■ 

XT* 


TSTB 

1 w 1 D 




01 Sfi4d 

vx J**~W 


100S75 

XV » J 








BPL 

vr !■> 


1$ 


01%42 
vx^v^c 


117714 

XX ■ ■ x^ 


000402 






* IVvO 


STKDBR (R4) 


01%4fi 

VX JW^w 


149714 

X^b ' X^ 


000200 

WVC VV 






BICB 

0X WV 


•200 (R4) 


015652 

VX WWwC 


122427 


000015 






CMPB 


(R4)«.dl5 


015656 


001413 








BEQ 

Vk W 


INSTR2 


015660 


117777 

XX ■ f r r 


000364 

Www V^ 


000366 

WW W W WW 




HOVB 


STKDBR STPDBR 


015666 


105777 


000360 




2): 


TSTB 


9TPCSR 


015672 


100375 








BPL 


2» 


015674 


005303 








DEC 


R3 


015676 


001356 








BNE 


1) 


015700 


104401 






INSTRE: 


TYPE 




015702 


017253 








HQn 




015704 


000745 








BR 


INSTRl 


015706 


000002 






INSTR2: 


RTI 





SEQ 73 



! 3 
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SEG /4 



1 015710 



.PARAMS 



i CONVERT ASCII STRING TO OCTAL 



015710 


011605 




DAOAMC • MAli 

rMKMrJa ; HUV 


{.or J ,K5 


015712 


012567 


AAA % sa 
000140 


nuv 


fDK^ A. 1 ni TH 
^n5 ^ t , LULin 


015716 


012567 


AAA t A A 

000144 


nuv 


r OC ^ ^ UTI TM 

VK5 J ♦ I rllLin 




01256^ 


AAAt il9 

0UU142 


nuv 


IK3^ ♦ , Ut'lnUn 


015726 


112567 


AA A t A A 

000140 


MHViD 

nuvb 


IK3^ * , LUDl 1 o 


015732 


t t £ ^ 

11256 / 


AAAt 1C 

000135 


nuvD 


/D<\^^ anorMT 


015736 


At AC t £ 

010516 




nuv 


K5 « I or 1 


015 r 40 


AACAAC 

005005 




OADAM1 .no 
rHKMnX : ULK 


OK 
K5 


015/42 


At 07A4 

012/04 


At "JAAA 
Ul f 444 


MfiM 

nuv 




At C^d£ 

015/46 


t 997 1 A 

122/14 


AAAA1 C 




Ate rpA') 


U15/5e 


AA1 AOA 




RPQ 


PARPDR 


015/54 


12142/ 


AAAA&n 


X* " cnro 


^nH ^ « irov 


U13 /DO 


UUe415 




Rl T 


PARFRR 

r AHt AA 


Vl5 /Oc 


12142 ' 


AAAA£7 


TMPR 


fRAI 467 


U15/00 


AATA1 O 




DU 1 


PARFRR 


m ^77A 
Wl5/ /v 


14e / 14 


AAAAAA 
WWvV 


RTfR 

DXl»D 




015774 






BIS6 


(R4)t.R5 


015776 


122714 


000015 


CHPB 


«15.(R4) 


016002 


001406 




BEQ 


LIMITS 


016004 


006305 




ASL 


R5 


016006 


006305 




ASL 


R5 


016010 


006305 




ASL 


R5 


016012 


000760 




BR 


1) 


016014 


104404 




PARERR: INSTER 




016016 


000750 




BR 


PARAMl 



{TEST TO SEE NUMBER IS WITHIN LIMITS 



016020 


020567 


000042 


LIMITS: 


CMP 


R5. HILIM 


016024 


101373 






BHI 


PARERR 


016026 


020567 


000032 




CMP 


R5. LOLIM 


016032 


103770 






BLO 


PARERR 


016034 


136705 


000032 




BITB 


L0BITS.R5 


016040 


001365 






BNE 


PAREmt 










: STORE 


NUMBER AT 


016042 


016704 


000022 




MOV 


0EVA0R,R4 


016046 


010524 




1): 


MOV 


R5,(R4)» 


016050 


062705 


000002 




ADO 


♦2.R5 


016054 


105367 


000013 




OECB 


AORCNT 


016060 


001372 






BNE 


1$ 


016062 


000002 






RTI 




016064 


000000 




LOLIM: 


0 




016066 


000000 




HILIM: 


0 




016070 


000000 




DEVAOR: 


0 




016072 


000000 




LOBI^S : 


0 






016073 




AORCNT> 


LOBITSt 


1 
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0ie074 



016074 


017601 


000000 


016100 


062716 


000002 


016104 


012167 


000130 


016110 


112167 


000126 


016114 


112167 


000123 


016120 


013167 


000120 


016124 


016704 


000114 


016130 


116705 


000106 


016134 


012700 


017456 


016140 


010403 




016142 


042703 


177770 


016146 


062703 


000260 


016152 


110320 




016154 


006204 




016156 


006204 




016160 


006204 




016162 


005305 




016164 


001365 




016166 


012703 


017470 


016172 


114023 




016174 


105367 


000042 


016200 


001374 




016202 


105767 


000035 


016206 


001405 




016210 


112723 


000240 


016214 


105367 


000023 


016220 


001373 




016222 


105013 




016224 


104401 




016226 


017470 




016230 


005367 


000004 


016234 


001325 




016236 


000002 




016240 


000000 




016242 


000000 
016243 




016244 


000000 





.OCTASC 

:CONi/ERT OCTAL NUMBER TO 



OCTASN: 


MOV 


aCSP5.Rl 




ADO 


*2 , C SP ) 




MOV 


(R1)«.URDCNT 


1*: 


MOVE 


(RD*. CHRCNT 




MOVB 


CR1)*.SPACNT 




MOV 


SCRD* .BINURD 


2$ : 


MOV 


BINURD, R4 




MOVB 


CHRCNT ,R5 




MOV 


OTEMP.RO 


3): 


MOV 


R4.R3 




BIC 


#177770, R3 




ADD 


«260.R3 




MOVB 


R3.(R0}» 




ASR 


R4 




ASR 


R4 




ASR 


R4 




DEC 


R5 




BNE 


3« 




MOV 


«H0ATA.R3 


4$: 


MOVB 


-(R0).(R3)» 




DECB 


CHRCNT 




BNE 


4) 




TSTB 


SPACNT 




BEQ 


61 


5*: 


MOVB 


«240.(R3)* 




DECB 


SPACNT 




BNE 


5) 


6*: 


CLRB 
TYPE 
MOATA 


(R3) 




DEC 


WROCNT 




BNE 


U 




RTI 




UROCNT : 


0 




CHRCNT : 


0 




SPACNT- 


CHRCNT ♦I 




BZNURO.- 


0 





SEQ 75 



II AND OUTPUT TO TELEPRINTER 
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SEQ 76 



016246 



. POINT t 'OHSCR . OHNRC . OHLPR . DHBA . OHBC , OHBAR . OHBCR . OHSSP , DHSLR . DHRVEC . OHRLVL . OHTVEC .OHTLVL/ 
.-INDIRECT POINTERS s 3 



TLVL> 



016246 


177560 


TKCSR 




177560 




016250 


177562 


TKOBR 




177562 




016252 


177564 


TPCSR 




177564 




016254 


177566 


TPDBR 




177566 








.IRP 




A 


< DHSCR . DHNRC . DHL PR . DHBA , DHBC . DHBAR . DHB CR . DHS SR . DHSLR . DHRVEC . DHRLVL . DHT VEC . OH 






A: 

.ENDM 




0 




016256 


000000 


DHSCR 




0 




016260 


000000 


DHNRC 




0 




016262 


000000 


OHLPR 




0 




016264 


000000 


OHBA: 




0 




016266 


000000 


DHBC: 




0 




016270 


000000 


OHBAR 




0 




016272 


000000 


OHBCR 




0 






www 


OHSSR 




0 




016276 


000000 


DHSLR 




0 




016300 


000000 


DHRVEC: 


0 




016302 


000000 


DHRLVL : 


0 




016304 


000000 


OHTVEC : 


0 




016306 


000000 


OHTLVL: 


0 




016310 




.VARIA 


t/TOATA. RDATA. 8YTCNT/ 








iPROGRAn VARIABLES 


016310 


000000 


ERRFLG: 


0 


sERROR FLAG 


016312 


000000 


PASCNT : 


0 


:PASS COUNT 


016314 


000000 


ERRCNT : 


0 


{ERROR COUNT 


016316 


000000 


RETRN: 


0 


(SCOPE RETURN ADDRESS FOR TEST LOOPING 


016320 


000000 


ESCAPE: 


0 


(ADDRESS FOR ERROR ESCAPE 


016322 


000000 


FREEZl : 


0 


iOATA LOOPING RETURN ADDRESS 


016324 


000000 


ICOUNT : 


0 


jI'^ERATION COIWT FOR TEST IN PROGRESS 


016326 


000000 


LPCNT 




0 


iNUI«ER OF ITERATIONS THIS TEST 


016330 


000000 


SAVRO 




0 


:R0 SAVE AREA 


016332 


000000 


SAVRl 




0 


iRl SAVE AREA 


016334 


000000 


SAVR2 




0 


{R2 SAVE AREA : 3 


016336 


000000 


SAVR3 




0 


sR3 SAVE ARE 


016340 


000000 

www 


SAVR4 




0 


iR4 SAVE AREA 


016342 


000000 


SAVRS 




0 


iR5 SAVE AREA 


016344 


000000 


SAVSP 




0 


{STACK POINTER SAVE AREA 


016346 


000000 


SAVPC 




0 


{CALLING ROUTINE SAVE AREA 


016350 


000000 


INIFLG: 


0 


{PROGRAM INITIALIZATION FLAG 


016352 


000000 


STFL6: 


0 


{PROGRAM START FLA(* 


016354 


000000 


^AST: 




0 


{LAST ERROR PC 




.IRP 




A 


<TDATA. RDATA. BYTCNT> 






A: 

.ENOM 




0 




016356 


000000 


TO AT A: 


0 




016360 


000000 


RDATA 




0 




016362 


000000 


BYTCNT: 


0 
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1 016364 


000400 


TBUF: 


-REPT 


2 




.BYTE 


XOATA 


3 




.NLIST 


4 




XDATA- 


■ XOATA* 1 


5 




.LIST 




6 




.ENOR 




016364 


000 


.BYTE 


XOATA 




000001 


XOATA' 


■XOATAtl 


016365 


001 


.BYTE 


XOATA 




000002 


XDATA' 


•XOATAO 


016366 


002 


.BYTE 


XOATA 




000003 


XDATA> 


>X0ATA«1 


016367 


003 


.BYTE 


XOATA 




000004 


XOATA' 


•X0ATA*1 


016370 


004 


.BYTE 


XOATA 




000005 


XOATA< 


>X0ATA*1 


016371 


005 


.BYTE 


XOATA 




000006 


XOATA- 


'XOATAtl 


016372 


006 


.BYTE 


XOATA 




000007 


XOATA' 


>X0ATA»1 


016373 


007 


-BYTE 


XOATA 




000010 


XDATA' 


•XOATA* 1 


016374 


010 


.BYTE 


XOATA 




000011 


XOATA' 


•XOATA*! 


016375 


Oil 


.BYTE 


XOATA 




000012 


XOATA' 


•XOATA* 1 


016376 


012 


.BYTE 


XOATA 




000013 


XOATA' 


•XOATA* 1 


016377 


013 


.BYTE 


XOATA 




000014 


XOATA' 


•XOATA* 1 


016400 


014 


.BYTE 


XOATA 




000015 


XOATA' 


•XOATA* 1 


016401 


015 


.BYTE 


XOATA 




000016 


XOATA' 


•XOATA*! 


016402 


016 


.BYTE 


XOATA 




000017 


XOATA' 


•X0ATA*1 


016403 


017 


.BYTE 


XOATA 




000020 


XOATA' 


•XOATA*! 


016404 


020 


.BYTE 


XOATA 




000021 


XOATA> 


•XOATA*! 


016405 


021 


.BYTE 


XOATA 




000022 


XOATA' 


•XOATA*! 


016406 


022 


.BYTE 


XOATA 




000023 


XOATA' 


•XOATA*! 


016407 


023 


• BYTE 


XOATA 




000024 


XOATA' 


•XOATA*! 


016410 


024 


.BYTE 


XOATA 




00002S 


XOATA' 


•X0ATA*1 


016411 


025 


.BYTE 


XOATA 




000026 


XOATA' 


•XOATA* 1 


016412 


026 


.BYTE 


XOATA 




000027 


XOATA' 


•XDATA* 1 


016413 


027 


.BYTE 


XOATA 




000030 


XOATA' 


•XDATA*! 


016414 


030 


.BYTE 


XOATA 




000031 


XOATA' 


•XOATA*! 


01641S 


031 


.BYTE 


XOATA 
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000032 


016416 


032 




000033 


016417 


033 




000034 


016420 


034 




000035 


016421 


035 




000036 


016422 


036 




000037 


016423 


037 




000040 


016424 


040 




000041 


016425 


041 




000042 


016426 


042 




000043 


016427 


043 




000044 


016430 


044 




000045 


016431 


045 




000046 


016432 


046 




000047 


016433 


047 




000050 


016434 


050 




000051 


016435 


051 




000052 


016436 


052 




000053 


016437 


053 




000054 


016440 


054 




000055 


016441 


055 




000056 


016442 


056 




000057 


016443 


057 




000060 


016444 


060 




000061 


016445 


061 




000062 


016446 


062 




000063 


016447 


063 




000064 


016450 


064 




000065 


016451 


065 




000066 



XDATA-XDATA»i 
.BYTE XOATA 
XDATA-X0ATA*1 
.BYTE XOATA 
XDATA-XDATA*! 
.BYTE XOATA 
XDATA-XDATA*1 
.BYTE XDATA 
XOATA-XOATA*! 
.BYTE XDATA 
XOATA-XDATA^l 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XDATA-X0ATA*1 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XDATA-XOATA^l 
.BYTE XOATA 
X0ATA-X0ATA*1 
.BYTE XOATA 
X0ATA-X0ATA*1 
.BYTE XOATA 
X0ATA-X0ATA*1 
.BYTE XOATA 
X0ATA-X0ATA«1 
.BYTE XOATA 
X0ATA-X0ATA»1 
.BYTE XOATA 
X0ATA-XDATA«1 
.BYTE XOATA 
XDATA-XDATA^l 
.BYTE XDATA 
XDATA-X0ATA*1 
.BYTE XOATA 
X0ATA-X0ATA«1 
.BYTE XDATA 
XDATA-X0ATA«1 
.BYTE XDATA 
XOATA- X0ATA«1 
.BYTE XOATA 
X0ATA-XDATA«1 
.BYTE XDATA 
XDATA-XOATA*! 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XDATA-XDATA»1 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XOATA 
XDATA-XDATA*! 
.BYTE XOATA 
X0ATA>XDATA»1 
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016452 


066 




000067 


01M55 


067 




000070 


01MS4 


070 




000071 


016455 


071 




000072 


016456 


072 




000073 


01645'' 


073 




000074 


016460 


074 




000075 


016461 


075 




000076 


016462 


076 




000077 


016463 


077 




000100 


016464 


100 




000101 


016465 


101 




000102 


016466 


102 




0U0103 


016467 


103 




000104 


016470 


104 




000105 


016471 


105 




000106 


016472 


106 




000107 


016473 


107 




000110 


016474 


110 




000111 


016475 


111 




000112 


016476 


112 




000113 


016477 


113 




000114 


016500 


114 




000115 


016501 


115 




000116 


016502 


116 




000117 


016503 


117 




000120 


016504 


120 




000121 


016505 


121 




000122 


016506 


122 



.BYTE XOATA 
X0ATA>X0ATA«1 
.BYTE XOATA 
X0ATA-X0ATA*1 
.BITE XOATA 
X0ATA-X0ATA*1 
.BYTE XOATA 
XDATA-XOATA*! 
.BYTE XOATA 
XDATA-X0ATA*1 
.BYTE XOATA 
VQATA'XDATA*! 
.BYTE XOATA 
X04TA-XDATA*! 
.BYTE XOATA 
X0ATA>X0ATA*1 
.BYTE XOATA 
X0ATA-X0ATA*1 
.BYTE XOATA 
Xt)ATA-XOATA*l 
.BYTE XD'.fA 
XOATA- AUATA*1 
.BYTE XOATA 
X0ATA>XDATA*1 
.BYTE XOATA 
X0ATA-X0ATA*1 
•BYTE XOATA 
XDATA-XDATA«1 
.BYTE XDATA 
X0ATA-XDATA*1 
.BYTE XDATA 
X0ATA«X0ATA*1 
.BYTE XDATA 
XOATA-XOATA*! 
.BYTE XOATA 
XOATA-XOATA'l 
.BYTE XOATA 
X0ATA-X0ATA*1 
.BYTE XDATA 
X0ATA-X0ATA*1 
.BYTE XDATA 
XOATA-XOATA*1 
.BYTE XDATA 
XOATA-XOATA*! 
.BYTE XDATA 
XDATA-XOATA.l 
.BYTE XOATA 
X0ATA>X0ATA*1 
.BYTE XOATA 
XDATA- XOATA* 1 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 



:rjH» CO 
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000123 


XOATA< 


'XOATA* 1 


016507 


123 


.BYTE 


XOATA 




000124 


XOATA 


•XOATA*! 


016510 


124 


.BYTE 


XOATA 




000125 


XOATA' 


•XDATA*1 


016511 


125 


.BYTE 


XOATA 




000126 


XOATA< 


•X0ATA*1 


C16512 


126 


• BYTE 


XOATA 




000127 


XOATA' 


■XOATA* 1 


016513 


127 


• BYTE 


XOATA 




000130 


XOATA' 


•XOATA* 1 


016514 


130 


.BYTE 


XOATA 




000131 


XOATA- 


>X0ATA*1 


016515 


131 


.BYTE 


XOATA 




000132 


XOATA' 


■XOATA* 1 


016516 


132 


.BYTE 


XOATA 




000133 


XOATA' 


XOATA* 1 


016517 


133 


.BYTE 


XOATA 




000134 


XOATA' 


■XOATA* 1 


016520 


134 


.BYTE 


XOATA 




000135 


XOATA' 


>X0ATA*1 


016521 


135 


.BYTE 


XOATA 




000136 


XOATA' 


X0ATA*1 


016522 


136 


.BYTE 


XOATA 




000137 


XOATA' 


■XOATA* 1 


016523 


137 


.BYTE 


XOATA 




000140 


XOATA' 


■XOATA* 1 


016524 


140 


• BYTE 


XOATA 




000141 


XOATA' 


XOATA* 1 


016525 


141 


.BYTE 


XOATA 




000142 


XOATA> 


■XOATA*! 


016526 


142 


.BYTE 


XOATA 




000143 


XOATA* 


■XOATA*: 


016527 


143 


.BYTE 


XOATA 




000144 


XOATA> 


■XOATA*! 


016530 


144 


.BYTE 


XOATA 




000145 


XOATA' 


■XOATA«! 


016531 


145 


.BYTE 


X7ATA 




000146 


XOATA' 


XO' TA*! 


016532 


146 


.BYTE 


' DATA 




000147 


XOATA' 


■X0ATA*1 


016533 


147 


.BYTE 


XOATA 




000150 


XOATA' 


■XOATA*! 


016534 


150 


.BYTE 


XOATA 




000151 


XOATA' 


XOATA*! 


016535 


151 


.BYTE 


XOATA 




000152 


XOATA' 


■XOATA*! 


016536 


152 


.BYTE 


XOATA 




000153 


XOATA' 


'XOATA*! 


016537 


153 


.BYTE 


XOATA 




000154 


XOATA' 


'XOATA*! 


016540 


154 


.BYTE 


XOATA 




000155 


XOATA' 


'XOATA*! 


016541 


155 


.BYTE 


XOATA 




000156 


XOATA' 


'XOATA*! 


016542 


156 


.BYTE 


XOATA 




000157 


XOATA' 


■XOATA*! 
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01654S 


157 


.BYTE X0A1 


FA 




000160 

www* WW 


XDATA'XDATA 


► 1 


016544 


160 


BYTE XDA 


A 




000161 


X0ATA-XDATA< 


1 


016545 


161 


•BYTE XDA1 


A 




000162 


XDATA-XOATA 


,1 


016546 


162 


BYTE XOAI 

• V V W¥ #^Wr1 


A 




000163 


XDATA«XDATA< 


1 


016547 


163 


.BYTE XDA1 


FA 




000164 


XDATA-XOATA< 


1 


016550 


164 


•BYTE XOAI 


rA 




000165 


XDATA-XDATA< 


1 


016551 


165 


.BYTE XDAl 


rA 




000166 


XOATA«XOATA< 


1 


016552 


166 


.BYTE XOAI 


rA 




000167 


XOATA>XOATA< 


1 


016555 


167 


.BYTE XDAl 


rA 




000170 


XOATA>XDATA< 


1 


016554 


170 


.BYTE XDAl 


rA 




000171 


X0ATA-XDATA< 


1 


016555 


171 


•BYTE XDAl 


rA 




000172 


XOATA-XDATA< 


►1 


016556 


172 


.BYTE XDAl 


FA 




000173 


XOATA-XDATA* 


.1 


016557 


173 


.BYTE XDAl 


rA 




000174 


XOATA-XDATA^ 


►1 


016560 


174 


.BYTE XDAl 


rA 




000175 


XDATA-X0ATA< 


>i 


016561 


175 


•BYTE XDAl 


FA 




000176 


XDATA-XDATA* 


► 1 


016562 


176 


.BYTE XDAl 


rA 




000177 


XDATA-XDATA' 


►1 


016563 


177 


.BYTE XDAl 


FA 




000200 


XOAYA-XOATA 


► 1 


016564 


200 


.BYTE XDAl 


FA 




000201 


XDATA>XDATA< 


hi 


016565 


201 


.BYTE XDAl 


FA 




000202 


XDATA-XDATA^ 


hi 


016566 


202 


.BYTE XDAl 


FA 




000203 


X0ATA"X0ATA< 


► I 


016567 


203 


.BYTE XDAl 


FA 




000204 


XDATA-XDATA< 


► 1 


016570 


204 


.BYTE XDAl 


FA 




000205 


XDATA>XDATA< 


► 1 


015571 


205 


.BYTE XDAl 


FA 




000206 


XDATA«XDATA< 


► 1 


016572 


206 


.BYTE XOAI 


FA 




000207 


XOATA>XDATA< 


>1 


016573 


207 


.BYTE XDAl 


FA 




000210 


XDATA>X0ATA< 


• 1 


016574 


210 


.BYTE XOAI 


FA 




000211 


X0ATA<X0ATA< 


-1 


016575 


211 


.BYTE XDAl 


FA 




000212 


XOATA'XOATA 


► 1 


016576 


212 


.BYTE XOAI 


FA 




000213 


XDATA-XOATA 


yl 


016577 


213 


.BYTE XDAl 


FA 



CO 
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?14 




0005 1 S 


VXwvVA 


PIS 




000? 16 


01 A609 


716 

C Xw 




OOOP1 7 

V/VVC X ( 


01660Y 


717 
c X f 




001P30 




PPO 




wvVcCX 


016fiOS 






wvccc 


01 660b 








016607 


ppt 




M0PP4 

V\'Wt t"» 


016610 


224 




000225 


016611 


225 




000226 


VA W AC 


226 




000227 


016613 


227 




000230 


016614 

VX w A^ 


230 




000231 


016615 


231 




000232 

WVC <<i#C 


016616 

V A W AV 


232 




000233 


016617 


233 




000234 


016620 


234 




000235 

WVC^ J 


016621 


235 




000236 

W Vw wW 


016622 


236 




000237 

VWC W 1 


016623 

VX Wwb^ 


237 




000240 

WW Wfc ^ w 


016624 


240 




000241 


016625 


241 




000242 


016626 


242 




000243 

WW Wk ^ w 


016627 


243 




000244 


016630 


244 




000245 


016631 


245 




000246 


016632 


246 




000247 


016633 


247 




000250 



XDATA-XDATA«1 
•BYTE XOATA 
X0ATA-X0ATA*1 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
X0ATA-X0ATA*1 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XDATA*! 
.BYTE XOATA 
XOATA-XDATA^l 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA- X0ATA«1 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XDATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XOATAtl 
.BYTE XOATA 
XOATA-XDATAtl 
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A1 


■OR A 


QVTP vnAi 


r A 
n 




UUvcjX 




^ X 




c3X 


QVTP VHAI 
•DTic AUn 


r A 
n 






VnAT Aa vnAT A J 


^ 1 




£3c 


.13 T 1 C, aUH 


'A 

M 






aUM I n" Al/n 1 


L 1 


UIOOO r 




QYTP ynA1 


FA 
n 






vnAT Aa vnAT A J 
aUM I n* aUH 1 M^ 






oc:a 


QVTP vnAi 

.DTIC AUn 


r A 

n 




AAA3RR 


VDAT AaVnAT Ai 
aUM I n" AUn 1 


^ J. 








r A 

n 




AAAOC£ 


yrtAT AaVDATA J 
AUM 1 M" AUn 1 n ^ 


^ 1 






.DTIC AUn 


rA 

n 




AAAOR7 


vnATAsVnAT Aa 
AUn 1 n* Aun i n^ 


i. 




c3 r 


. D • 1 C AUn 


FA 
n 




AAAOAA 


AUfi 1 n*Aun 1 n< 


X 


A1 iLAAA 


3AA 


• D I 1 c Aun 


A 

n 




AAASAI 


ynATAsvnAT Aj 

Aun 1 n* Aun i n < 






3A1 
COX 


. D > « c Aun 


rA 

n 






vnATAaVnAT A4 
Aun 1 n" AUn 1 n^ 


1 

X 


m ££££ 


3A9 


RYTP yflA' 
■ 0 1 1 c Aun 


A 
n 




AAASA'V 


ynATAaVflATA^ 
Aun 1 n~ Aun 1 n ^ 


^ X 


V >^ f 


9A'^ 


• D 1 1 c Aun 


'A 

n 






ynATAaYDATA^ 
Awn 1 n~ Aun 1 n^ 


^ X 






• D I 1 c Aun 


rA 

n 




nflA9A^ 


ynATAs^DATAj 


^X 






BYTE ynAi 
■ D 1 1 b Al/n 


rA 

n 




0009AA 


Ai#n 1 n~ Avn 1 n ^ 


l1 

' X 




9AA 


avTc yoAl 

• D 1 1 c Avn 








XDATA-XDATA4 

Avn 1 n Awn 1 n ^ 


^X 




267 


BYTE XDA1 


7( 




oonP70 


XDATAaXDATA^ 

Awn 1 n Awn 1 n^ 


l1 
^ X 




570 


« w 1 lb Awn 


rA 




000971 
WVC f X 


ynATA>yDATA4 
Awn 1 n~ Awn 1 n^ 


^ X 




971 

C 1 X 


BYTE XDA1 

* D I 1 k Awn 


rA 

n 




000979 


XDATA'XDATAi 

Awn 1 n Awn 1 m 




ni AASA 


979 
C ( c 


BYTE XDA' 

• D 1 1 k Awn 


A 

n 




000973 
wvc 1 V 


XDATA-XDATA4 

Awn I n AW1 1 n^ 


L 1 

^ X 


01 AA^7 


973 

C ( w 


BYTE XDA1 

. w I P t Awn 


7\ 




On097A 
vwc 1 •* 


XDATAsXDATA^ 

Awn 1 n Awn 1 m 


^ X 


ni A A AO 


974 


RYTF ynAi 

• D 1 1 w Awn 


rA 

n 




00097S 
wvc f J 


ynATA^yOATA^ 

Awn 1 n Awn 1 n^ 




A1 AAA1 


97S 
C f ^ 


• w ■ 1 w Awn 


'A 




n0097A 
wvc ■ V 


XDATA^yOATA^ 

Awn 1 n Awn 1 


L 1 

^ X 


01 AAA? 


97A 
C f V 


BYTE XDA1 
• w 1 1 k Awn 


rA 

n 




000977 
wvc f f 


XDATA>XDATA4 

Awn 1 n Awn 1 


.1 

^ X 


01 AAAT 
VX vvvO 


977 

C t f 


BYTE XDA1 

• D > 1 k Awn 


A 




OOO'^OO 

VV VwVV 


X0ATA>XDATA4 

Awn 1 n Awn 1 n^ 


~ X 


ni AAAA 


'^OO 
ovv 


BYTE XDA' 

• D 1 1 k Awn 


'A 




000101 

VVV"*VX 


XDATA«XDATA4 

AWn 1 n AW" 1 


~ X 


01 AAA^ 

VX vOO^ 


X01 
ovx 


BYTE XDA1 

■ w ■ V t AW n 


A 




000^09 
vv v^vc 


XDATA>XDATA4 

Awn 1 fi Awn 1 


' X 


016666 


302 


BYTE XDA1 


rA 




000303 


XOATA=XDATA^ 


►1 


016667 


303 


.BYTE XDAl 


FA 




000304 


XDATA-XDATA^ 


► 1 


016670 


304 


.BYTE XDAl 


FA 





000305 


016671 


305 




000306 


016672 


306 




000307 


016673 


307 




000310 


016674 


310 




000311 


016675 


311 




000312 


016676 


312 




000313 


016677 


313 




000314 


016700 


314 




000315 


016701 


315 




000316 


016702 


316 




000317 


016703 


317 




000320 


016704 


320 




000321 


016705 


321 




00C322 


016706 


322 




0C0323 


016707 


323 




000324 


016710 


324 




000325 


016711 


325 




000326 


016712 


326 




000327 


016713 


327 




000330 


016714 


330 




000331 


016715 


331 




000332 


016716 


332 




000333 


016717 


333 




000334 


016720 


334 




000335 


016721 


335 




000336 


016722 


336 




000337 


016723 


337 




000340 


016724 


340 




000341 



XOATA-XDATA^l 
.BYTE XOATA 
X0ATA-XDATA»1 
.BYTE XOATA 
X0ATA-X0ATA»1 
.BYTE XOATA 
XOATA- XDATA^l 
.BYTE XDATA 
XOATA-XOATA^l 
.BYTE XOATA 
XDATA-X0ATA»1 
.BYTE XDATA 
XOATA- XDATA*! 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
X0ATA-XDATA*1 
.BYTE XOATA 
XDATA- XDATA* 1 
.BYTE XDATA 
XOATA-XDATA*! 
.BYTE XDATA 
XDATA-X0ATA*1 
.BYTE XDATA 
XOATA- XDATA* 1 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 
XOATA-XOATA*! 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XDATA-XDATA*1 
•BYTE XDATA 
XDATA- XDATA* 1 
.BYTE XDATA 
XDATA«X0ATA*1 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XOATA-XDATA*! 
.BYTE XDATA 
XOATA- XDATA*! 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 
XOATA-XOATA*! 
.BYTE XDATA 
XOATA-XOATA*! 
.BYTE XDATA 
XOATA-XOATA*] 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 
XDATA-XDATA*! 



i 
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016725 


341 




000342 


016726 


342 




000343 


016727 


343 




000344 


016730 


344 




000345 


016731 


345 




0003^6 


016732 


346 




000347 


016733 


347 




000350 


016734 


350 




000351 


016735 


351 




000352 


016736 


352 




000353 


016737 


353 




000354 


016740 


354 




000355 


016741 


355 




000356 


016742 


356 




000357 


016743 


357 




000360 


016744 


360 




000361 


016745 


361 




000362 


016746 


362 




000363 


016747 


363 




000364 


016750 


364 




000365 


016751 


365 




000366 


016752 


366 




000367 


016753 


367 




000370 


016754 


370 




000371 


016755 


371 




000372 


016756 


372 




000373 


016757 


373 




000374 


016760 


374 




000375 


016761 


375 



.BYTE XDATA 
X0ATA-X0ATA*1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-X0ATA«1 
.BYTE XDATA 
XDATA>XDATA«1 
.BYTE XDATA 
XDATA- XDATA«1 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 
XDATA-XDATAtl 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA*! 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA*1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
X0ATA-XDATA«1 
.BYTE XDATA 
XDATA>XDATA«1 
•BYTE XDATA 
XDATA-XDATA^l 
.BYTE XDATA 
X0ATA-XDATA«1 
.BYTE XDATA 
X0ATA-X0ATA«1 
.BYTE XDATA 
XDATA-X0ATA«1 
.BYTE XDATA 
XDATA*X0ATA«1 
.BYTE XDATA 
XDATA-XDATAtl 
.BYTE XDATA 
XDATA-XDATA«1 
.BYTE XDATA 
XDATA>XDATA»1 
.BYTE XDATA 



SEQ 85 



I 
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016762 
016763 



8 016764 



000376 
376 

000377 
377 

000400 



XOATA-XOATA*! 
.BYTE XDATA 
XOATA-XDATA*! 
.BYTE XDATA 
XDATA-XDATA*1 
.EVEN 
.PFAIL 



sENTER HERE ON POUER FAILURE 



016764 


010046 


PFAIL: 


MOV 


RO.-(SP) 


016766 


010146 




MOV 


Rl.-(SP) 


016770 


010246 




MOV 


R2.-(SP) 


016772 


010346 




MOV 


R3.-(SP) 


016774 


010446 




MOV 


R4.-(SP) 


016776 


010546 




MOV 


R5.-(SP) 


017000 


016746 


161020 


MOV 


24. -(SP) 


017004 


010667 


177334 


MOV 


SP.SAVSP 


017010 


012767 


017022 161006 


MOV 


♦RESTART, 24 


017016 


000000 




HALT 




017020 


000777 




BR 





:SAVE RO R5 ON PROCESSOR STACK 



sSAVE STACK POINTER 

-.SET UP FOR POWER UP TRAP 

;HALT ON POUER DOWN NORMAL 



017022 


016706 


177316 




RESTAR : 


MOV 


SAVSP.SP 


017026 


012605 








MOV 


(SP)*.R5 


017030 


012604 








MOV 


(SP)*.R4 


017032 


012603 








MOV 


(SP)*,R3 


017034 


012602 








HOV 


(SP)*,R2 


017036 


012601 








HOV 


(SP)*.R1 


017040 


012600 








MOV 


vSPJ»,KO 


017042 


012767 


016764 


160754 




HOV 


♦PFAIL. 24 


017050 


012767 


000340 


160720 




MOV 


#340. PS 


017056 


012706 


020164 






nov 


♦STACK. SP 


017062 


00!:067 


000370 






CLR 


TEMP 


017066 


005267 


000364 






INC 


TEMP 


017072 


001375 








BNE 


.-4 


017074 


104401 








TYPE 




017076 


017257 








MCRLF 




017100 


104402 








OCTASC 




017102 


017124 








PFTAB 




017104 


104401 








TYPE 




017106 


017262 








MPFAIL 




017110 


005067 


177174 






CLR 


ERRFLG 


017114 


005067 


177234 






CLR 


LAST 


017120 


000177 


177172 






JMP 


SRETRN 


017124 


000001 






PFTAB: 


1 




017126 


000006 


000002 






6.2 




017132 


016316 








RETRN 




9 017134 








.MSG 


t/DHll 


SINGLE LINE 


017134 


015 


01? 


012 


MTITLE: 


.ASCIZ 


<15><12><1 


017137 


104 


110 


061 








017142 


061 


040 


123 








017145 


111 


116 


107 








017150 


114 


105 


040 








017153 


114 


111 


116 








017156 


105 


040 


104 









i PROCESSOR WILL TRAP HERE WHEN POUER IS RESTORED 



{RESTORE STACK POINTER 
{RESTORE RO-RS 



tSET UP FOR POUER FAILURE 
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SEQ 87 



017161 


101 


124 


101 


017164 


040 


124 


105 


017167 


123 


124 


040 


017172 


015 


012 


000 


017175 


015 


012 


126 


017200 


105 


103 


124 


017203 


117 


122 


040 


017206 


101 


104 


104 


017211 


122 


105 


123 


017214 


123 


055 


000 


017217 


015 


012 


103 


017222 


117 


116 


124 


017225 


122 


117 


114 


017230 


040 


122 


105 


017233 


107 


111 


123 


017236 


124 


105 


122 


017241 


040 


101 


104 


017244 


104 


122 


105 


017247 


123 


123 


055 


017252 


000 






017253 


040 


040 


077 


017256 


000 






017257 


015 


012 


000 


017262 


040 


040 


120 


017265 


117 


127 


105 


017270 


122 


040 


106 


017273 


101 


111 


114 


C17276 


125 


122 


105 


017301 


054 


040 


120 


017304 


122 


117 


107 


017307 


122 


101 


lis 


017312 


0*0 


122 


105 


017315 


123 


124 


101 


017320 


122 


124 


040 


017323 


101 


124 


040 


017326 


124 


105 


123 


017331 


124 


040 


111 


017334 


116 


040 


120 


017337 


122 


117 


107 


017342 


122 


105 


123 


017345 


123 


000 




017347 


015 


012 


103 


017352 


132 


104 


110 


017355 


106 


055 


103 


017360 


060 


000 




017362 


015 


012 


120 


017365 


101 


123 


123 


017370 


040 


103 


117 


017373 


125 


116 


124 


017376 


040 


075 


040 


017401 


000 






017402 


015 


012 


122 


017405 


000 






017406 


015 


012 


124 


017411 


105 


123 


124 


017414 


040 


120 


103 



MVECTO: .ASCIZ <15><12>/VECT0R ADDRESS-/ 



MREGAO: .ASCIZ <15><12>/C0NTR0L REGISTER ADDRESS-/ 



MQM: .ASCIZ / ?/ 
MCRLF: .ASCIZ <15><12> 

HPFAIL: .ASCIZ / POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 



MEPASS: .ASCIZ <15><12>/CZ0HF-C0/ 



PASTXT: .ASCIZ <15><12>/PASS COUNT - / 



MR: .ASCIZ <15><12>/R/ 

MTSTPC: .ASCIZ <15><12>/TEST PC-/ 



i 5 
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SEQ 88 



017417 

10 

11 017422 



017422 
017424 
017426 
017430 
017432 
017434 
017436 
017440 
017442 
12 017444 



055 



000 



015100 
015554 
016074 
015606 
015700 
015710 
015462 
015522 
015200 



.EVEN 
.EVEN 
. TRPTAB 



STABLE OF POINTERS FOR TRAP DECODING 



TRPTAB: SCOPER 
TYPER 
OCTASN 
INSTRG 
INSTRE 
PARAMS 
SV05P 
RS05 
SCOPIR 



.BUFFER 



sBUFFERS FOR INPUT -OUTPUT 



017444 


000000 






INBUF: 


0 




017456 






.•.♦10 




017456 


000000 






TEMP: 


0 




017470 






.«.*10 




017470 


000000 






MDATA: 


0 




017502 






,•.♦10 




13 017502 








.ERRTAB 














: TABLE 


017502 








ERRTAB: 




14 017502 


017516 








EMI 


15 017504 


017702 








Oil 


16 017506 


017557 










17 017510 


017720 








0T2 


18 017512 


017630 








EH3 


19 017514 


017742 








0T3 


20 017516 


104 


101 


124 


EMI: 


.ASCIZ 


017521 


101 


040 


105 






017524 


122 


122 


117 






01 "'527 


122 


015 


012 






017532 


105 


130 


120 






017535 


040 


040 


040 






017540 


040 


040 


122 






017543 


105 


103 


040 






017546 


040 


040 


040 






017551 


040 


114 


111 






017554 


116 


105 


000 






21 017557 


104 


101 


124 


EM2; 


.ASCIZ 


017562 


101 


040 


105 






017565 


122 


122 


117 






017570 


122 


015 


012 






017573 


105 


130 


120 






017576 


040 


040 


040 






017601 


040 


040 


122 






017604 


105 


103 


040 







: TABLE OF POINTERS TO ERROR MESSAGES AND DATA 



/DATA ERR0R/<15><12>/EXP 



REC 



LINE/ 



/DATA ERR0R/<15><12>/EXP 



REC 



SPEED LllVE/ 
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SEQ B9 





017607 


040 


040 


040 




017612 


040 


123 


120 




017615 


105 


105 


104 




017620 


040 


040 


040 




017623 


114 


111 


116 




017626 


105 


000 




22 


017630 


104 


101 


124 




017633 


101 


040 


105 




017636 


122 


122 


117 




017641 


122 


015 


012 




017644 


105 


130 


120 




017647 


040 


040 


040 




017652 


040 


040 


122 




017655 


105 


103 


040 




017660 


040 


040 


040 




017663 


040 


114 


105 




017666 


116 


107 


124 




017671 


110 


040 


040 




017674 


114 


111 


116 




017677 


105 


000 




?3 










24 


017702 


000003 






25 


017704 


006 


002 




26 


017706 


016356 






27 


017710 


006 


002 




28 


017712 


016340 






29 


017714 


002 


000 




30 


017716 


016336 






31 


017720 


000004 






32 


01^722 


006 


002 




33 


017724 


016360 






34 


017726 


006 


002 




35 


017730 


016336 






36 


017732 


002 


005 




37 


017734 


016334 






38 


017736 


002 


000 




39 


017740 


016342 






40 


017742 


000004 






41 


017744 


006 


002 




42 


017746 


016360 






43 


017750 


006 


002 




44 


017752 


016336 






45 


017754 


002 


006 




46 


017756 


016340 






47 


017760 


002 


000 




48 


017762 


016342 






49 


017764 
017764 


000000 






50 




000001 







EM3: .ASCIZ /DATA ERR0R/<15><12>/EXP 



.EVEN 
DTI: 3 
.BYTE 6.2 

TDATA 
.BYTE 6.2 

SAVR4 
.BYTE 2.0 

SAVR3 
DT2: 4 
.BYTE 6.2 

ROATA 
.BYTE 6.2 

SAVR3 
.BYTE 2,5 

SAVR2 
.B^TE £.0 

SAVR5 
DT3: 4 
.BYTE 6.2 

ROATA 
.BYTE 6,2 

SAVR3 
.BYTE 2.6 

SAVR4 
.BYTE 2.0 

SAVR5 

.ENDCOO 
ENDCOO: 0 
.END 



REC LENGTH LINE/ 
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SYMBOL TABLE 



ADRCNT 


> 016073 


EOP 


015000 


PARAM - 


104405 


BEGIN 


001306 


ERRCNT 


016314 


PARAMS 


015710 


BZNURD 


016244 


ERRFLG 


016310 


PARAMl 


015740 


BITX 


■ 000000 


ERRMSG 


015336 


PARERR 


016014 


BITOO ' 


■ 000001 


ERRORS 


015216 


PASARG 


015072 


BZTOl < 


. 000002 


ERRTAB 


017502 


PASCNT 


016312 


BIT02 ' 


■ 000004 


ERTABO 


015422 


PASTXT 


017362 


BIT03 • 


• 000010 


ESCAPE 


016320 


PFAIL 


016764 


BIT04 • 


. 000020 


EXITER 


015400 


PFTAB 


017124 


BIT05 ' 


> 000040 


FREEZl 


016322 


POPRO - 


012600 


BIT06 • 


000100 


HALTS 


015360 


POPISP- 


005726 


BITOT • 


000200 


HILIM 


016066 


P0P2SP> 


022626 


BIT08 • 


000400 


ICOUNT 


016324 


PS 


i: '776 


BIT09 ■ 


001000 


INBOF 


017444 


PUSHRO- 


010046 


BITIO • 


002000 


INIFLG 


016350 


PUSHIS- 


005746 


BITll • 


004000 


INSTER- 


104404 


PUSH2S- 


024646 


BIT12 • 


010000 


INSTR « 


104403 


ROATA 


016360 


BIT13 • 


020000 


INSTRE 


015700 


RESREG 


015356 


BIT14 • 


040000 


INSTRG 


015606 


RESTAR 


017022 


BIT15 • 


100000 


INSTRl 


015620 


RESTRT 


015066 


BYrCNT 


016362 


INSTR2 


015706 


RES05 « 


104407 


CHRCNT 


016242 


LAST 


016354 


RETRN 


016316 


OATABP 


015354 


LIGHTS 


001002 


RS05 


015522 


OEVAOR 


016070 


LIMITS 


016020 


SAVPC 


016346 


0H6A 


016264 


LINE » 


000020 


SAVRO 


016330 


OHBAR 


016270 


LOBITS 


016072 


SAVRl 


016332 


OHBC 


016266 


LOGICA 


015056 


SAVR2 


016334 


OHBCR 


016272 


LOLIM 


016064 


SAVR3 


016336 


OHLPR 


016262 


LPCNT 


016326 


SAVR4 


016340 


OHNRC 


016260 


MCRLF 


017257 


SAVR5 


016342 


OHRi.VL 


016302 


MDATA 


017470 


SAVSP 


016344 


DHRVEC 


016300 


ME PASS 


017347 


SAV05P* 


104406 


DHSCR 


016256 


MPFAIL 


017262 


SCOPE - 


104400 


OH SLR 


016276 


MQM 


017253 


SCOPER 


015100 


OHf SR 


016274 


MR 


017402 


SCOPEl" 


104410 


DHTLVL 


016306 


MREGAO 


017217 


SCOPIR 


01S200 


OHTVEC 


016304 


MSG 


015622 


SPACNT" 


016243 


OTl 


017702 


MTITLE 


017134 


STACK " 


020164 


0T2 


017720 


MTSTPC 


017406 


START 


001004 


0T3 


017742 


MVECTO 


017175 


STFLG 


016352 


EMI 


017516 


N 


000001 


SV05 


015470 


EM2 


017557 


OCTASC" 


104402 


SV05P 


015462 


EM3 


017630 


OCTASN 


016074 


SUR 


001000 


ENOCOO 


017764 











. ABS. 017766 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL MEfWRY USED: 19200 UOROS ( 75 PAGES) 

0Y^iAMIC MEMORY AVAILABLE FOR 71 PAGES 

CZOHFC . BIN , CZOHFC . SEQ- CZDHFC , DOC . DHMACA . MAC . CZDHFC . Pll 



SEQ 90 



SUOO ' 


000001 


T24 


005232 


SWOl ■ 


000002 


T25 


005430 


SW02 - 


000004 


T26 


005626 


SU03 - 


000010 


T27 


006024 


SU04 - 


000020 


T3 


001704 


SW05 • 


000040 


T30 


006222 


SU06 - 


000100 


T31 


006420 


SU08 - 


000400 


T32 


006616 


SU09 - 


001000 


T33 


007014 


SUlO - 


002000 


T34 


007212 


sun ■ 


004000 


T35 


007410 


SU12 ■ 


010000 


T36 


007606 


SU13 - 


020000 


T37 


010004 


SU14 - 


040000 


T4 


002046 


SW15 • 


100000 


T40 


010202 


TBUF 


016364 


T41 


010400 


TOATA 


016356 


T42 


010620 


TEMP 


017456 


T43 


011040 


TKCSR 


016246 


T44 


011260 


TKD6R 


016250 


T45 


011500 


TPCSR 


016252 


146 


011720 


TPDBR 


016254 


T47 


012140 


TRPOK 


01'i442 


15 


002210 


TRPSRV 


015430 


ISO 


012360 


TRPTAB 


C174?: 


T51 


012600 


TYPOAT 


0l:>340 


T52 


013020 


TYPE • 


104401 


153 


013240 


TYPCH 


015554 


T54 


013460 


TYPfISC 


015316 


T55 


013700 


Tl 


001400 


T56 


014120 


TIC 


002656 


T57 


014340 


Til 


003020 


16 


002352 


T12 


003162 


T60 


014560 


TIS 


003324 


T7 


002514 


T14 


003466 


VECl 


001164 


T15 


003630 


VEC2 


001174 


T16 


003772 


UROCNT 


016240 


T17 


004134 


X 


000000 


T2 


001542 


KBIT - 


000001 


T20 


004276 


XOATA - 


000400 


T21 


004440 


XLINE - 


000000 


T22 


004636 


XN 


000061 


T23 


005034 


Y • 


000011 



